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Neue  Rubrik 


JOYCE 

MIT  DEM  PROGRAM 
"NOTIZBLOCK” 


Tip  des  Monats 


DRUCKER 

DATEIPROGRAMME 


CPC  Programm-Servi 


QUICKPLAN  LAYOUTER 

KOMPLETTER  Z80  ASSE 
MIT  DATA-GENERATOR  i 


Zwei  Action-Spiele 


NI 

IB 

BL 

STADTI 

©  ’85  Rainbow  Design 


Raimbow  Arte  Software 


Multitext  umfangreiche  Textverarbeitung 


Scrollender  Ganzbildschirmeditor 
Fließtext  —  Word  Wrap 
80-stelliger  Tabulator 
Arbeiten  mit  Textblöcken 
Rechenfunktionen 
deutsche  Umlaute  u.v.m. 


EMS  Erweitertes  Multidatei-System 


>  frei  definierbare  Eingabemaske 
bis  zu  4000  Datensätze  pro  Datei 
|  integrierte  Kalkulation 
t  vielfältige  Auswertmöglichkeiten 
*  Drucken  von  Listen  und  Etiketten 
deutsche  Umlaute  u.v.m. 


Die  Multisoft- Reihe 


f 

I 

* 

* 


völlig  neuartige  Menütechnik 

Komfort  und  Leistungsfähigkeit 
weitaus  teurer  Computersysteme 

individuell  an  jedes  Problem 
anpaßbar 

viele  gegenseitige 
Kommunikationsmöglichkeiten 


Multisoftprogramme  gibt  es  auf  Kassette  und  Diskette  für  CPC  464/664/6128  und  für 
C  64/128  auf  Diskette. 

Weitere  Informationen  bei  ariolasoft,  Königstraße  4, 4830  Gütersloh  oder  telefonisch 

bei  Rainbow  Arts  Telefon-Hotline:  05241/16888  (Mo.  u.  Do.  16-19  Uhr) 


*  unverbindliche  Preisempfehlung 


ESI 


Von  Experten 
für  Experten. 
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Auf  der  Titelseite  können 
Sie  es  lesen:  Ab  dieser  Aus¬ 
gabe  bringt  Schneider  CPC 
International  eine  stän¬ 
dige  R  ubrikfür  Schneiders 
jüngstes  Baby,  den  PCW 
8256,  besser  bekannt  als 
Joyce.  Und  da  das  Soft¬ 
wareangebot  für  dieses  Ge¬ 
rät  naturgemäß  zur  Zeit  noch  nicht  sehr  üppig  ist,  haben  wir  uns  darangesetzt 
und  ein  nützliches  Programm  für  den  Joyce  geschrieben,  das  ebenfalls  in  die¬ 
ser  Ausgabe  abgedruckt  wurde.  Joyce-Anwender  werden  also  künftig  von  uns 
die  gleiche  Hilfe  erfahren,  wie  dies  für  unsere  CPC'ler  schon  lange  üblich 
ist! 


Daß  wirtrotz  Joyce  den  übrigen,  sprich  CPC-Bereich  der  Schneider-Anwen¬ 
der  nicht  vernachlässigen,  sehen  Sie  selbst:  Die  Themen  dieser  Ausgabe,  vor 
allem  der  Beitrag  »Tips  im  Umgang  mit  CP/M «  unterstreichen  dies  nach¬ 
haltig. 


Druck 
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Die  Abonnementbestellung  kann  innerhalb  einer 
Woche  nach  Auftrag  beim  Verlag  schriftlich  wider¬ 
rufen  werden.  Zur  Wahrung  der  Frist  reicht  der 
Poststempel.  Das  Abonnement  verlängert  sich 
automatisch  um  6  bzw.  12  Monate,  wenn  es  nicht 
mindestens  6  Wochen  vor  Ablauf  beim  Verlag 
schriftlich  gekündigt  wird. 

Für  unverlangt  eingesandte  Manuskripte  und  Da¬ 
tenträger  sowie  Fotos  übernimmt  der  Verlag 
keine  Haftung. 

Honorare  nach  Vereinbarung  (die  Zustimmung 
zum  Abdruck  wird  vorausgesetzt). 

Das  Urheberrecht  für  veröffentlichte  Manuskripte 
liegt  ausschließlich  beim  Verlag.  Nachdruck, sowie 
Vervielfältigung  oder  sonstige  Verwertung  von 
Texten,  nur  mit  schriftlicher  Genehmigung  des 
Verlages. 

Namentlich  gekennzeichnete  Fremdbeiträge  ge¬ 
ben  nicht  in  jedem  Fall  die  Meinung  der  Redaktion 
wieder. 


Noch  immer  läuft  unser  Grafikwettbewerb,  und  da  unsere  Leser  offensicht¬ 
lich  ein  rate-  und  rätselfreundliches  Völkchen  sind,  haben  wir  gleich  den 
nächsten  Wettbewerb  gestartet:  »Leser  wählen  die  CPC-Sofiware  des  Jahres 
1985«.  Wir  sind  alle  schon  sehr  gespannt,  wer  hier  wohl  das  Rennen  machen 
wird.  Da  wir  keinerlei  Vorgaben  gemacht  haben,  ist  alles  völlig  offen. 

U nser  Sonderheft  1/86  ist  in  der  Zwischenzeit  im  Handel,  wo  es  (theoretisch ) 
bis  Februar  erhältlich  sein  wird.  Sollte  es  bei  Ihrem  Zeitschriftenhändler  in¬ 
zwischen  vergriffen  sein,  können  Sie  es  direkt  über  den  Verlag  beziehen, 
solange  der  Vorrat  reicht. 

Für  das  neue  Jahr  1986  wünscht  Ihnen  Ihre  CPC  Redaktion  alles  Gute, 
Glück  und  Gesundheit. 


HerzMchst  Ihr  H 

Mi-  uL 

Christian  Widuch 
Chefredakteur 
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Blendfreies  Bild 


Besitzer  eines  CPC  mit  Farb- 
oder  Grünmonitor  haben  nun 
die  Möglichkeit,  mit  einem 
entsprechenden  Bildschirm¬ 
vorsatz  ein  deutlich  bes¬ 
seres  Bild  zu  bekommen. 
Das  Monitorbild  wird  ent- 
spiegelt,  die  Schrift  ist  glas¬ 
klar  zu  erkennen.  Vor  allem 
dürfte  der  Bildschirmvorsatz 
den  Besitzern  eines  Farbmo¬ 
nitors  zugute  kommen,  da 
durch  die  Farbverläufe  Un¬ 
regelmäßigkeiten  auftreten 
können.  Der  augenfreund¬ 
liche  Monitorvorsatz  kostet 
etwa  99,-  DM  für  den  Grün¬ 
monitor  und  ca.  129-  DM 
für  den  Farbmonitor. 

Info: 

Data  Media 

Dortmund  □ 


Hobby-Elektronik 
In  Stuttgart 
-  eine  herbe 
Enttäuschung 

Bereits  im  letzten  Jahr 
wurde  der  Computeranwen¬ 
der  auf  der  Hobby-Elektronik 
in  Stuttgart  nicht  gerade  ver¬ 
wöhnt  Die  diesjährige  Messe 
auf  dem  Stuttgarter  Killes- 
berg,  die  in  der  Zeit  vom  7.  - 
10.  November  stattfand,  war, 
zumindest  was  das  Angebot 
im  Computerbereich  anging, 
recht  dürftig. 

Mag  es  eventuell  daran  lie¬ 
gen,  daß  die  Vielzahl  der 
Computermessen  den  Aus¬ 
stellern  eine  sorgfältige  Se¬ 
lektion  abfordern,  war  viel¬ 
leicht  der  Zeitpunkt  -  näm¬ 
lich  kurz  nach  der  Systems  - 
der  Grund  für  das  Nicht¬ 
erscheinen  vieler  Anbieter? 
Oder  liegt  der  Grund  einfach 
in  der  Tatsache,  daß  sich  sehr 
viele  in  der  Branche  vom 
Hobby  sehr  stark  in  Richtung 
professioneller  oder  zumin¬ 
dest  semiprofessioneller  An¬ 
wendung  orientieren  -  das 
Ergebnis  war  für  uns  einfach 
unbefriedigend. 

Beim  Gang  durch  die  beiden 
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Hallen,  in  denen  Computer¬ 
produkte  vertreten  waren, 
glänzten  auf  jeden  Fall  eine 
Reihe  von  Firmen,  die  im 
letzten  Jahr  hier  waren, 
durch  Abwesenheit. 

Was  vor  allem  auffiel,  war  die 
Tatsache,  daß  selbst  die  An¬ 
bieter  fehlten,  die  speziell 
Produkte  für  den  reinen  Ho¬ 
mecomputermarkt  anbieten. 
Ganz  und  gar  spärlich  war 
das  Angebot  an  Software¬ 
spielen,  sieht  man  einmal  da¬ 
von  ab,  daß  regionale 
Kaufhäuser  wie  z.B.  Horten 
mit  der  Computerabteilung 
angetreten  waren.  Selbst  die 
traditionell  starken  Sparten 
dieser  Messe,  nämlich  Elek¬ 
tronik  und  Modellbau,  hatten 
offensichtlicht  gegenüber  dem 
Vorjahr  abgespeckt. 
Ungebrochen  scheint  die  Po¬ 
pularität  dieser  Messe  aller¬ 
dings  bei  den  Besuchern  zu 
sein.  Am  Messesamstag,  als 
wir  unseren  Rundgang  durch¬ 
führten,  war  der  Besucheran¬ 
drang  beachtlich.  Deshalb 
waren  die  Aussteller,  die  den 
Weg  nach  Stuttgart  gefunden 
hatten,  denn  auch  mit  den 
Ergebnissen  durchweg  zufrie¬ 
den. 

Neben  einigen  Zeitschriften- 
und  Buchverlagen  waren  nur 
wenige  andere,  für  Schneider- 
User  interessante  Messe¬ 
stände  zu  beobachten.  Große 
Neuheiten  auf  dem  Com¬ 
putersektor  konnten  wir  je¬ 
denfalls  nicht  entdecken. 
Die  wenigen  Schneider 
Computer,  die  uns  in  Stutt¬ 
gart  begegneten,  waren  schließ¬ 
lich  bei  Firmen  wie  Horten, 
CSE  Schauties,  G+R  Sie¬ 
mens  und  einer  Firma  mit 
dem  netten  Namen  »Das 
Computerhüsli«  zu  sehen. 
Deutlich  dominierte  auch  in 
den  Computerhallen  die 
Elektronik,  CB-Funk  und 
die  Hi-Fi-Bastler. 

Einen  Vorteil  hatte  diese 
Situation  allerdings:  Die  bei 
anderen  Messebesuchen  üb¬ 
lichen  Fußbeschwerden  und 
der  lange  Arm  vom  Tragen 
der  mit  Prospekten  vollge¬ 
packten  Taschen  blieb  an 
diesem  Tage  aus. 

DIN  A4-Hardcopy 

Das  Programm  »Topcopy« 
ermöglicht  es,  Hardcopy's  in 
DIN  A4  und  DIN  A5-Größe 
zu  drucken.  Des  weiteren  be¬ 
inhaltet  das  Programm  eine 
sehr  schnelle  Text-Hardcopy. 
Topcopy  ist  auf  Kassette  (ca. 
29,-  DM)  und  auf  Diskette 
(ca.  39,-  DM)  erhältlich  und 


neuerdings  auch  im  Grafik¬ 
programm  »Topgraf«  (Test 
siehe  Heft  11/85)  enthalten. 
Info: 

Ing.  Büro  Scheruhn 
Garbsen  □ 

CPC  464 

zum  Computer 

des  Jahres  gewählt 

Mit  überwältigender  Mehr¬ 
heit  wurde  der  CPC  464  zum 
Computer  des  Jahres  1985 
gewählt.  Fachjournalisten 
aus  sieben  Ländern  verwie¬ 
sen  dabei  den  Atari  130  XE 
sowie  den  Commodore  128 
auf  die  Plätze.  Den  enormen 
Erfolg  der  Schneider  Com¬ 
puter  belegen  auch  die  jüng¬ 
sten  Zahlen  der  Computer- 
Hitliste.  die  auf  den  Plätzen  2 
-  4  nur  CPC’s  aufweist.  Es 
wird  wohl  nicht  mehr  lange 
dauern,  bis  der  Noch- 
Marktführer  Commodore 
vom  Thron  gestürzt  wird. 

BTX-fählger 

Akustikkoppler 

Die  Firma  Wörlein  stellt  zur 
Micro-Computer  '86,  die 
vom  29.01.  -  02.02.86  in 
Frankfurt  stattfindet,  einen 
neuen  Akustikkoppler  vor. 
Das  Design  entspricht  dem 
bekannten  Woerltronic-Data- 
phon  S21d,  Datenübertra¬ 
gung  1200/75  Baud  -  BTX- 
fähig.  1200/1200  Baud,  300/ 
300  Baud.  Die  Stromversor¬ 
gung  erfolgt  wahlweise  über 
Netzteil,  Batterie  oder  Akku. 
Laut  Hersteller  wird  der 
Preis  für  den  neuen  Aku¬ 
stikkoppler  unter  400-  DM 
liegen. 

Info: 

Wörlein 

Cadolzburg  □ 


Neues  Graffk- 
Toolklt  von  CCP 

Ab  sofort  ist  das  Programm¬ 
paket  Turbo-GSX-Tools  auch 
für  8bit  CP/M-Computer  er¬ 
hältlich.  Das  Paket  ermög¬ 
licht  die  Grafikprogrammie¬ 
rung  unter  GSX  und  stellt 
viele  neue  Grafikprozeduren 
für  den  CPC  zur  Verfügung. 
Zum  Lieferumfang  gehört 
eine  Diskette  mit  dem 
Source-Code  der  Grafikpro¬ 
zeduren  sowie  ein  ausführ¬ 
liches  Handbuch. 

Info: 

CCP  Software 
Marburg/Lahn  □ 


DIN  A4-Plotter 

Ein  DIN  A4-Plotter  mit  ex¬ 
zellenten  Leistungsdaten 
wurde  jetzt  von  der  Firma 
Neumüller  vorgestellt.  Der 
NPR-5500  ist  ein  Rollenplot¬ 
ter,  mit  dem  Einzelblatt-, 
Endlospapier  oder  sogar 
Transparentfolie  verarbeitet 
werden  kann.  Geplottet  wird 
in  vier  Farben  (rot,  grün, 
blau,  schwarz)  und  einer  Auf¬ 
lösung  von  0,1  mm.  Dabei 
erreicht  der  NPR-5500  eine 
Druckgeschwindigkeit  von 
immerhin  120  mm/sec.  In  der 
Grundausstattung  kostet  der 
NPR-5500  ca.  998,-  DM  mit 
Centronics-Schnittstelle. 

Weitere  Schnittstellen  sind 
gegen  Aufpreis  erhältlich. 
Info: 

Neumüller 

Taufkirchen  □ 


Micro 

Computer  986 

Vom  29.1. -2.2.1986  findet  in 
Frankfurt  die  Micro-Com¬ 
puter  '86  statt.  Diese  Messe 
wird  nach  langer  Zeit  wieder 
einmal  alle  Hersteller  von 
Heim-  und  Personalcom¬ 
putern  anziehen,  so  daß  man 
in  Frankfurt  einiges  erwarten 
kann.  Ob  man  zum  Auftakt 
des  vieldiskutierten  Com- 
puteijahres  1986  Überraschun¬ 
gen  erwarten  kann,  bleibt  al¬ 
lerdings  abzuwarten.  □ 


Korrektur  zu 
Sonderheft  1/86 

In  der  Marktübersicht  »Da¬ 
teiprogramme«  hat  der  Druck¬ 
fehlerteufel  zugeschlagen! 
Auf  Seite  106  »Programm 
Multidatei«  von  Rainbow 
Arts  sind  nicht  40  Zeichen 
pro  Datensatz,  sondern  pro 
Datenfeld  gemeint.  Wir  bit¬ 
ten  um  Entschuldigung.  □ 

Korrektur  zur 
Bücherseite 
aus  Heft  12/85 

Bei  der  Preisangabe  des 
Buches  »Wie  man  Computer- 
Lernprogramme  entwickelt« 
aus  dem  MVG-Verlag  ist  uns 
ein  Fehler  unterlaufen.  Das 
Buch  kostet  29,80  DM  und 
nicht,  wie  irrtümlich  ge¬ 
druckt,  58,-  DM.  Wir  bitten 
um  Entschuldigung. 


— 
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Schneider  International 


CPC  als  Terminal 
im  Netzwerk 

Die  englische  Firma  HM  Sy¬ 
stems  hat  ein  Zusatzgerät  für 
CPC  Computer  sowie  für 
den  Joyce  entwickelt,  das  die 
Möglichkeit  des  Terminal¬ 
betriebes  eröffnet.  Das  Sy¬ 
stem  ist  mit  einem  eigenstän¬ 
digen  löbit-Prozessor  ausge¬ 
stattet  und  wird  über  eine 
RS-232-Schnittstelle  mit  dem 
CPC  bzw.  Joyce  verbunden. 
Als  Betriebssystem  fährt  Am- 
strel  (so  der  klangvolle  Name 
des  Systems)  Turbo-Dos.  das 
Programme  von  CP/M  II, 
CP/M  86,  MP/M  II  und  MP/M 
86  lesen  kann.  Des  weiteren 
emuliert  das  Betriebssystem 
PC-Dos,  was  eine  Verbindung 
mit  IBM-PC’s  erlaubt.  Mit 
Amstrel  läßt  sich  also  ein 
Multi-User-System  aufbau¬ 
en,  das  Schneider  Computer 
als  Terminals  verwenden 
kann.  Das  System  bietet  den 
Anschluß  von  vier  Termi¬ 
nals,  optional  kann  bis  zu  12 
Terminals  erweitert  wer¬ 
den. 

Die  Kosten  belaufen  sich  auf 
etwa  £  7000,  ein  vergleich¬ 
bares,  mit  IBM-PC's  ver¬ 
netztes,  Multi-User-System 
kostet  etwa  das  Doppelte. 
Info: 

HM  Systems 

London  □ 


Grafiktablet 
für  CPC9s 

In  England  wurde  jetzt  ein 
Grafiktablet  vorgestellt,  wel¬ 
ches  dem  Anwender  ein 
komfortables  Erstellen  von 
Zeichnungen  ermöglicht. 
Das  Tablet  unterstützt  neben 
dem  Freihand-Zeichnen  vor 
allem  technisches  Zeichnen 
bis  hin  zu  C.A.D.  Nähere  In¬ 
formationen  entnehmen  Sie 
bitte  einer  der  nächsten  Aus¬ 
gaben  von  CPC  Internatio¬ 
nal,  dann  werden  wir  dieses 
nützliche  Hilfsmittel  aus¬ 
führlich  testen. 

□ 

II.  Amstrad 
Computer  Show 

Nach  dem  tollen  Erfolg  der 
ersten  Amstrad-Messe  im 
Oktober  '85  -  eigentlich  nur 
Lückenfüller  der  zulaufschwa¬ 
chen  und  kurzfristig  abge¬ 
sagten  LET-Show  gedacht  - 


findet  am  1 1.  und  12.  Januar 
1986  die  zweite  Amstrad- 
Computershow  in  London 
statt. 

Mehr  als  100  Aussteller  zei¬ 
gen  ihre  Produkte  für  die  er¬ 
folgreichen  CPC  Computer 
sowie  für  den  Joyce.  Wer 
weiß,  vielleicht  ist  Alan  Su- 
gar  mal  wieder  für  eine  Über¬ 
raschung  gut?! 

□ 

Activision 
gründet  neues 
Softwarehaus 

Activision  hat  die  Gründung 
einer  neuen  Softwarecom¬ 
pany  -  Electric  Dreams  -  be¬ 
kanntgegeben: 

„Electric  Dreams  wird  mit  ei¬ 
gener  Produkt-  und  Marke¬ 
tingpolitik  völlig  unabhän¬ 
gig  von  Activision  operieren”, 
erklärte  Gregory  Fischbach, 
Präsident  von  Activision  In¬ 
ternational.  Jedoch  werden 
alle  Electric  Dreams-Pro- 
dukte  im  In-  und  Ausland 
über  bestehende  Activision- 
Kanäle  vertrieben. 

Der  neue  Geschäftsführer 
von  Electric  Dreams,  Rod 
Cousens,  ist  in  der  Branche 
als  erfolgreicher  Chef  von 
Quicksilva  bekannt.  In  der 
Öffentlichkeit  wurde  Cousens 
als  Initiator  von  Soft-Aid  be¬ 
kannt,  einer  Aktion  der  briti¬ 
schen  Softwarehäuser,  die 
fast  1,5  Millionen  DM  für  die 
hungernden  Menschen  in 
Äthiopien  einbrachte. 

Die  ersten  Spiele  für  den 
Schneider  CPC  werden  »I  of 
the  Mask«,  »Riddlers  Den« 
und  »Wintersport«  sein. 

□ 


Amstrad 

verzeichnet 

Rekordumsätze 

Amstrad  ist  auf  dem  besten 
Wege,  erfolgreichster  Her¬ 
steller  von  Heimcomputern 
zu  werden.  Alleine  in  1985  er¬ 
reichte  das  von  Alan  Sugar 
geführte  Unternehmen  einen 
Gewinn  von  ca.  20  Millio¬ 
nen  engl.  Pfund.  Das  be¬ 
deutet  gegenüber  1984  einen 
Zuwachs  von  sage  und  schrei¬ 
be  122%.  Mit  dem  PCW  8256, 
hierzulande  als  Joyce  be¬ 
kannt,  hat  Amstrad  zusätz¬ 
lich  noch  ein  heißes  Eisen  im 
Feuer. 

□ 


SCHNEIDER 

\  COMMODORE 

VERTRAGSHÄNDLER  * 

^^VERTRAGSWERKSTATT 

p i 

b  o  p  ir  acB  b 

SCHNEIDER 

CASS 

SCHNEIDEI 

CASS 

DISK 

Caves  of  Doom 

11,95 

Vereinsverwaltung 

57- 

69. — 

Soul  of  a  Robot 

11,95 

Adressverwaltung 

57  — 

69. — 

Formula  1  Simulator 

11,95 

Faktura 

57,— 

69, — 

COMMODORE  Hardware 

a.  Anfr. 

Micro  Experten  System  19,80 

29,80 

CPC  464  grün 

798, — 

Hardcopy 

19,80 

29,80 

CPC  464  Farbe 

1 298. — 

Kybernetia 

27,90 

39,80 

CPC  664  grün 

1398. — 

TexPac 

198,— 

CPC  664  Farbe 

1898. — 

Haushaltsbuch 

79. — 

CPC  61 28  grün 

1598, — 

Roland  Ahoy 

39. — 

49, — 

CPC  6128  Farbe 

2098. — 

Sorcery 

35. — 

DDI-1 

798. — 

Tennis 

39,50 

NLQ  401 

748. — 

Pool  Billard 

39,50 

FD-1 

598, — 

Manie  Miner 

19, — 

Joyce  PCW  8256 

2490, — 

Ghostbusters 

39, — 

Vortex- Produkte  am  Lager 

Loco- Motion 

11.95 

Quickshot  1 

24.90 

House  of  Usher 

29, — 

Quickshot  2 

29,80 

Finders  Keepers 

11,95 

Joystick  Universal 

19,80 

Nonterraqueous 

11,95 

The  Stick 

49. — 

The  Wild  Bunch 

11,95 

Commodore  64/20/16 

17,90 

Subsunk 

11,95 

Commodore  1541 

24,90 

Short*  s  Fuse 

11,95 

Schneider  CPC  464 

24,90 

Mr.  Freeze 

11,95 

Schneider  CPC  664 

24,90 

Chiller 

11,95 

Schneider  CPC  6128 

24,90 

Jump-Jet 

49  — 

Schneider  DDI-1/FD-1 

12,90 

Fighter  Pilot 

39, — 

Leercassetten 

ab  -,99 

3D  Time  Treck 

29, — 

Disketten  5'A" 

Super  Pipeline  II 

39. — 

DS/DD  10  Stck. 

27,90 

Decathlon 

39, — 

Disketten  3”  Stck. 

12,90 

Hunch  Back  II 

39, — 

Disketten  5  Stck. 

59,— 

Alle  Preise  inkl.  MWST.  Versand  per  Vorkasse  oder  Nachnahme 
zuzüglich  5,—  Versandkosten.  Into  gegen  2,—  in  Briefmarken. 
Händleranfragen  erwünscht 


R.  Schuster  Electronic  Obere  Münsterstr:  33 

4620  Castrop-Rauxel  Tel.:  02305-3770 
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TEL.  02741/23537  St  23107 

VON  PROFIS  ERSTELLTE  SOFTWARE 

ZU  EINEM  MARKTORIENTIERTEN  PREIS 

flUFTfflliSMMu  • 

RBU 

Komplettpaket  "AUFTRAGSABWICKLUNG  -  FINANZBUCHHALTUNG” 

Diskette/Handbuch/Dokumentation/Lösungsvorschlag  lauffähig  auf 

allen  Schneider  Computern. 

Modularer  Aufbau  -  schnellster  Zugriff  auf  allen  Daten  durch 

Random  Access,  Finanzbuchhaltung  mit  Schnittstelle  zur  Auftrags- 

abwicklung. 

Auftragsakwlcklung  bastaband  aus:  Erfassung  von 
Auftrag  und  Angebot  incl.  Fakturierung 

398,00  DM 

Bestellwesen 

398,00  DM 

Lagerwirtschaft 

298,00  DM 

Statistik 

98,00  DM 

Flnanzbuchbalting 

398,00  DM 

(Umsatzsteuer,  Summen  und  Saldenlisten,  G  &  V  Rechnung,  Bilanz) 

200  Konten  und  500  Buchungen  pro  Monat  bei  größerem  Massen- 

Speicher  unbegrenzt  erweiterbar  (1MB  Floppy) 

KOMPLETTPREIS 

1200,00  DM 

HÄNDLERANFRAGEN  ERWÜNSCHT 

Demo  Fibu  (Disk.) 

Demo  ABLAS  (Disk.) 

...  neu  VEREINSVERWALTUNG  (mit  Überweisungsträgerdruck)  neu. 

2S,00  DM 
25,00  DM 
240,00  DM 

...  neu  ADRESSVERWALTUNG  neu. 

90,00  DM 

1  86  CPC  7 
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Eine  Bitte  an 
unsere  Leser 

Die  Rubrik  »Leserbriefe«  ist 
eine  Einrichtung  für  alle  Le¬ 
ser,  die  in  irgendeiner  Form 
Fragen,  Probleme  oder  An¬ 
regungen  zu  Produkten.  Pro¬ 
grammierproblemen  oder  zu 
unserer  Zeitschrift  haben. 
Selbstverständlich  sind  wir 
bemüht,  alle  Leserfragen  zu 
beantworten.  Doch  haben 
Sie  bitte  Verständnis,  daß  wir 
nicht  alle  eingehenden  Briefe 
persönlich  beantworten  kön¬ 
nen.  Oft  erreichen  uns 
mehrere  Briefe  zum  gleichen 
Thema,  einer  davon  wird 
dann  stellvertretend  für  alle 
in  unserer  Zeitschrift  beant¬ 


wortet.  Da  auch  wir  nicht  alle 
Fragen  auf  Anhieb  beant¬ 
worten  können,  müssen  wir 
recherchieren.  Und  das  dau¬ 
ert  bekanntlich  seine  Zeit!! 
Wir  möchten  hiermit  alle 
CPC-Leser  noch  einmal  auf 
unseren  Leser-Service  hin- 
weisen  und  bitten  bei  der 
Vielzahl  der  eingehenden 
Briefe  um  etwas  Geduld.  Für 
eilige  Anfragen  steht  unsere 
Redaktion  jeden  Mittwoch 
von  14-17  Uhr  am  »Heißen 
Draht«  zur  Verfügung.  Vie¬ 
len  Dank  für  Ihr  Verständnis. 

Ihre  CPC-Redaktion 

PS:  Die  Redaktion  behält  sich 
vor,  aus  Platzgründen  Leser¬ 
zuschriften  in  gekürzter  Form 
wiederzugeben. 


stellt  somit  einen  Fehler  im 
Betriebssystem  dar.  Bei  den 
anderen  Potenzen  z.B.  0,2,3, 
4...  tritt  dieser  Fehler  nicht 
auf. 

Auf  den  Fehler  bin  ich  bei  der 
Berechnung  der  Zahl  PI  ge¬ 
stoßen. 

00 

n/4  *  2  <-l>  n  *  1/ (2*n+l > 
n=0 

Den  Fehler  im  Vorzeichen 
konnte  ich  beheben,  indem  ich 
im  Programm  (-l)'(n-\-2)  be¬ 
nutzte  (passende  Änderung 
des  Laufindexes). 

100  FOR  n=0  TO  50 

110  SIJMME-SUMMF* <— 1>  — <n+2)/ ( 2*r>*  1 ) 
120  NEXT  n 

Gert  Ravensburg, 
Bad  Wildungen 


TV-TIp 

Mein  Farbfernseher  (ITT- 
Digivision)  ist  mit  einer  RGB- 
Buchse  ausgerüstet.  In  der  Be¬ 
dienungsanleitung  las  ich, 
daß  daran  Video-Kameras, 
Bildschirmtextgeräte  und 
Computer  mit  RGB-Ausgang 
angeschlossen  werden  kön¬ 
nen.  Die  Verbindungen  der 
Ausgänge  vom  CPC  an  die 
Eingänge  für  Rot,  Grün,  Blau 
und  Synchronisation  waren 
schnell  gefunden,  jedoch 
nahm  der  Fernseher  diese  ex¬ 
ternen  Signale  zuerst  nicht 
an.  Eine  Einspeisung  von  ca. 
3V  am  Eingang  ” Status” 
aktivierte  die  RGB-Verstär- 
ker.  Diese  Spannung  liefert 
der  Fernseher  von  einer  inter¬ 
nen  12,6V  Quelle,  die  über 
eine  eingebaute  Zehnerdiode 


herabgesetzt  wird.  Die  Ver¬ 
bindung  der  beiden  Eingänge 
an  der  RGB-Buchse  führte 
zum  Erfolg.  Aus  dem  nachfol¬ 
genden  Anschlußplan  ersehen 
Sie  die  Verbindungen. 

Jens  Kammann,  Ludwigsburg 


CPC  464 

ITT 

DIGIVISION 

1  rot 

2  grün 

3  blau 

4  Sync. 

5  Erde 

1  Steuersp. 

2  grün 

3 

4  Status 

5  Sync. 

6  blau 

7  rot 

8  Erde 

System-Kritik 

Ich  möchte  Sie  auf  einen  Feh¬ 
ler  im  Betriebssystem  des 
Schneider  Computers  CPC 
464  aufmerksam  machen. 
Erhebt  man  eine  negative 
Zahl  zur  1.  Potenz,  so  gibt  der 
CPC  464  als  Ergebnis  die 


positive  Zahl  aus.  Gibt  man 
z.B.  ein:  PRINT  (-5/7,  so 
lautet  das  Ergebnis  5  und 
nicht  -5,  wie  es  korrekter 
Weise  lauten  müßte.  Der  Feh¬ 
ler  bei  der  Hochzahl  1  (Vor¬ 
zeichen  ”+”  statt  tritt 
unabhängig  von  der  eingege¬ 
benen  negativen  Zahl  auf  und 


Lightpen-lltility 

Besitzern  des  dk  'tronics 
Lightpen  wird  es  sicherlich 
schon  aufgefallen  sein:  das 
im  Lightpen-Anleitungsbüch- 
lein  abgedruckte  Hardcopy- 
Programm  für  den  AM- 
STRAD  (Schneider)-Druk- 
ker  bringt  alles  andere  als  das 
gewünschte  Ergebnis!  Und 
das  liegt  nicht  allein  an  den 
fehlerhaften  CHR%-Steuerbe- 
fehlen  in  Zeile  110  (hier  muß 
es  heißen:  ...CHR$(27);”K"; 
CHR  S(80);ch  r%(0);)!  Auch 
wenn  man  diese  Zeile  korri¬ 
giert,  kommt  man  nicht  zum 
Ziel.  Woran  das  liegt,  weiß 
ich  selbst  (noch)  nicht. 

Man  hat  aber  die  Möglich¬ 
keit,  das  ebenfalls  abgedruck¬ 
te  Epson-Programm  an  den 
Schneider-Drucker  anzupas¬ 
sen.  Dies  habe  ich  getan  und 
das  Programm  arbeitet  ein¬ 
wandfrei.  Es  handelt  sich  le¬ 
diglich  um  zwei  Zeilen,  die  ge¬ 
ändert  werden  müssen: 

30  INPUT’NAME  OF 
SCREEN”;y$:load”!”+y$ 

50  WIDTH  255:PRINT#  8, 

CHR$(27);CHR$(51); 

CHR$(12); 

Dieses  Programm  druckt 
dann  die  8  Bitreihen  einer  je¬ 
den  Zeile  in  zwei  Hälften  zu  je 
4  Bitreihen. 

Nebenbei  möchte  ich  noch  er¬ 
wähnen,  daß  diese  Hardcopy- 
Routine  mit  dem  dazugehöri¬ 
gen  MC-Programm  DUMPMC, 
welches  sich  auf  der  mitgelie¬ 
ferten  Softwarekassette  direkt 
hinter  dem  eigentlichen  Light- 
pen-Programm  befindet,  das 
beste  ist,  was  ich  bislang  auf 
dem  CPC  gesehen  habe. 
Dieses  Programm  druckt 
nämlich  nicht  nur  eine  oder 
alle  PEN-Farben  schwarz 


8  CPC  1  '86 

b- 


iii  in  m  ii  im  n  H  in  im  11111111111  im  imimimiim  in  iiMiiliminii  ii 


und  die  PAPER-Farbe  weiß, 
sondern  die  Routine  DUMPMC 
setzt  auch  noch  die  einzelnen 
Farben  in  verschiedene  Punkt¬ 
muster  um,  womit  sich  ein  tol¬ 
les  Ergebnis  erzielen  läßt. 

L.  Lubjuhn,  Bergneustadt 


HIMEN-Fehler? 

Ich  wende  mich  an  Sie  mit  der 
Bitte,  mir  mitzuteilen,  warum 
ich  bei  der  Eingabe  von 
PRINT  HIMEN  auf  meinem 
CPC  464,  den  ich  kürzlich  er¬ 
werben  konnte,  nicht  den  It. 
Handbuch  entsprechenden  Aus¬ 
druck  von  42903  erhalte. 

Gebe  ich 

PRINT  HIMEN 

ein,  so  erscheint  auf  dem 

Monitor 

0 

Liegt  der  Fehler  am  Gerät,  am 
Basic  oder  an  mir? 

W.  Brodeßer,  St.  Augustin 

CPC: 

Die  Variable  HIMEM  gibt 
die  Obergrenze  des  freien 
Speicherbereichs  an.  Ihr  Na¬ 
me  setzt  sich  zusammen  aus 
HI  (High/Hoch)  und  MEM 
(Memory/Speicher).  Wenn 
Sie  jedoch  HIMEN  schrei¬ 
ben,  so  erkennt  der  Rechner 
dies  als  eigenständige  Varia¬ 
ble  an.  der  natürlich  noch 
kein  Wert  zugewiesen  wurde 
und  bei  Eingabe  "PRINT 
HIMEN”  den  Wert  0  ausge¬ 
ben  muß.  Schreiben  Sie  also 
den  Variablennamen  ein¬ 
fach  so  aus,  wie  es  auch  im 
Handbuch  vorgeschrieben 
steht,  nämlich  "PRINT  HI¬ 
MEM”  und  Sie  werden 
sehen,  daß  die  Ausgabe 
stimmt. 

Was  ist  MIDI? 

Herr  Figura  aus  Wetter  schreibt 
in  Ihrer  Ausgabe  11/85,  er 
suche  ein  Midi-Interface,  um 
die  Soundmöglichkeiten  sei¬ 
nes  CPC  464  optimal  nutzen 
zu  können. 

Hierzu  wäre  folgendes  anzu¬ 
merken: 

Unter  MIDI  (Musical  Instru¬ 
ment  Digital  Interface)  ver¬ 
steht  man  eine  serielle  Schnitt¬ 
stelle,  die  dazu  dient,  Key¬ 
boards  verschiedener  Herstel¬ 
ler;  Rhythmusgeräte,  Effekt¬ 
geräte,  Expander  etc.,  un¬ 
tereinanderzu  verbinden.  Die 
so  zu  einem  Gesamtsystem 
zusammengefaßten  Musikin¬ 
strumente  können  dann  von 
einem  Master  (Masterkey¬ 
board,  Heimcomputer  etc.) 
kontrolliert  und  gespielt  wer- 
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Briefe 


den.  MIDI-Software  (z.Z. 
vorwiegend  nur  für  den  VC64 
erhältlich)  dient  also  nicht 
dazu  Sound-Chips  von  Heim¬ 
computern  anzusteuem;  das 
ist  auch  ohne  Interface  mit 
entsprechender  Software  mög¬ 
lich! 

Dipl.  Ing.  Axel  Schmidt, 
Darmstadt 

Praktischer  Befehl 

Der  INSTR-Befehl  wird  im 
Schneider  CPC  464  Hand¬ 
buch  nur  sehr  kurz  erwähnt. 
Er  eignet  sich  aber  sehr  gut 
zur  Text-  und  Datenverar¬ 
beitung.  Der  INSTR-Befehl 
vergleicht  zwei  Textausdrük- 
ke  miteinander  und  gibt,  falls 
der  zweite  Textausdruck  im 
ersten  irgendwo  vorkommt, 
die  Stelle  im  String  an,  an  der 
das  der  Fall  ist.  Sollte  das 
nicht  der  Fall  sein,  so  wird  der 
Wert  0  ausgegeben. 

Wie  man  sich  das  zunutze 
machen  kann,  soll  folgendes 
kurzes  Adressenprogramm  ver¬ 
deutlichen. 

1 0  input  ’  ’S  UCHBE GRIFF: 
”,such$ 

20  für  n=l  to  3 
30  read  text%(n) 

40  if  instr  (text%(n),such%)  0 
then  print  text%(n) 

50  next 

60  data  Arno  Mueller  Ring- 
str.  8,  Hugo  Mayer  Baum  weg 
5,  Kuno  Schulz  Schillergas¬ 
se  2 

Gibt  man  nun  beispielsweise 
ein  M  als  Suchbegriff  ein,  so 
werden  die  Adressen  von 
Herrn  Mayer  und  Herrn  Mül¬ 
ler  ausgesucht.  Nimmt  man 
dagegen  Schulz  als  Suchbe¬ 
griff,  wird  lediglich  die 
Adresse  von  Kuno  Schulz  her¬ 
ausgesucht. 

Die  langen  Berechnungen  mit 
LEFT%,  MID%  und  RIGHTS 
entfallen  also. 

Mario  Srowig,  Osterode 

Zwei  Tips  zum 
Spiel  und  Editor 

1.  NONTERRAQUEOUS 
Nachdem  ich  vor  kurzem  das 
Mastertronic-Spiel  "Nonter- 
raqueous”  gekauft  habe,  be¬ 
gann  ich  natürlich  sofort, 
dieses  komplexe  Adventure zu 
lösen.  Ein  besonderes  Pro¬ 
blem  ist  hierbei  die  psychische 
Energie  des  Roboters,  die  laut 
Anleitung  nur  durch  Aufsam¬ 
meln  von  bestimmten  Ob¬ 
jekten  wieder  verstärkt  wer¬ 
den  kann. 


Ich  habe  nun  zufällig  einen 
anderen  Weg  gefunden,  um 
dies  zu  bewerkstelligen:  Dazu 
läßt  man  den  Roboter  am 
Rand  eines  Raumes  auf  den 
Boden  sinken  und  wechselt 
nun  in  den  benachbarten 
Raum  über.  Bei  jedem  Wech¬ 
sel  erhält  man  fünf  Ener¬ 
gieeinheiten  dazu,  wie  aus  der 
Statuszeile  ersichtlich  wird. 
Wichtig  ist,  daß  der  Roboter 
ständig  Bodenberührung  hat. 
Wechselt  er  schwebend  den 
Raum,  so  hat  dies  keine  Aus¬ 
wirkung  auf  die  Energie. 

Übrigens  ist  mir  aufgefallen, 
daß  in  dem  Spiel  ein  Pro¬ 
grammietfehler  vorhanden  ist; 
und  zwar  wurde  meine  Mis¬ 
sion  schon  mehrmals  ab¬ 
gebrochen,  weil  ich  angeblich 
die  Photonenstrahlen  berührt 
haben  soll.  Ich  weiß  aber,  daß 
ich  das  in  diesen  bestimmten 
Fällen  nicht  getan  habe.  Mich 
würde  nun  interessieren,  ob 
das  auch  bei  anderen  CPC- 
Besitzem  aufgetreten  ist  und 
wie  dieser  ärgerliche  Effekt 
verhindert  werden  kann. 

2.  Tastenkombinationen  zum 
Basic-Editor: 

Schon  vor  einiger  Zeit  habe 
ich  nützliche  Tastenkombi¬ 
nationen  für  den  Basic-Editor 
gefunden: 

’ CTRL  ’  +  'Cursor  rechts’: 
Der  Cursor  erscheint  am  rech¬ 
ten  Rand  der  aktuellen  Moni¬ 
torzeile. 

'CTRL’  +  'Cursor  links’: 

Der  Cursor  erscheint  am 
linken  Rand  der  aktuellen 
Monitorzeile. 

’ CTRL  ’  +  ’ Cursor  oben  ’: 

Der  Cursor  erscheint  am  An¬ 
fang  einer  BASIC-Zeile. 

’CRTL’  4-  ’ Cursor  unten’: 
Der  Cursor  erscheint  am 
Ende  einer  BASIC-Zeile. 

’ CTRL ’  +  ’TAB  ’: 

Einfügen  Ein-/ Ausschalten. 

Diese  Kombinationen  ma¬ 
chen  das  Editieren  langer 
BASIC-Zeilen  sehr  viel  kom¬ 
fortabler. 

Oliver  Kantimm,  Düsseldorf 


Spieletips 

1.  SORCERY 

Den  im  Heft  11/85  bereits  ab¬ 
gedruckten  Tips  kann  ich  hier 
noch  einige  hinzufügen: 
Selbst  wenn  man  alle  Zaube¬ 
rer  befreit  und  das  Heiligtum 
(Sanctuary)  erreicht  hat, 


heißt  das  nicht,  daß  man  sein 
Ergebnis  nicht  noch  verbes¬ 
sern  kann.  Es  gibt  nämlich  für 
jeden  zum  ersten  Mal  betrete¬ 
nen  Raum  Punkte,  ebenso  für 
jeden  zum  ersten  Mal  aufge¬ 
nommenen  Gegenstand,  für 
jeden  entriegelten  Zugang 
und  für  jeden  vernichteten  Dä¬ 
mon,  Werwolf  usw. 

Also  möglichst  alle  Räume 
einmal  betreten,  grundsätz¬ 
lich  jeden  Gegenstand  auf¬ 
nehmen  (auch  wenn  er  sofort 
wieder  ausgetauscht  wird) 
und  möglichst  viele  verrie¬ 
gelte  Türen  öffnen.  ( Mein 
persönlicher  HIGH-SCORE 
liegt  bei  87000  Punkten.) 

2.  DALEY  THOMPSON’ S 
DECATHLON 
Denjenigen,  die  bei  diesem 
Spiel  Schwierigkeiten  in  den 
Disziplinen  Weitsprung,  Ku¬ 
gelstoßen,  Diskus-  und  Speer¬ 
werfen  haben,  möchte  ich  hier 
einen  Tip  geben,  der  nicht  in 
der  A  nleitung  steht: 

Um  in  diesen  Disziplinen  die 
erforderliche  Weite  (oder 
mehr)  zu  erreichen,  müssen 
Sie  einen  Abwurf-  bzw.  Ab¬ 
sprungwinkel  von  etwa  45 
Grad  haben.  Dies  erreichen 
Sie  durch  FESTHALTEN  des 
Feuerknopfes.  Die  Gradzahl 
steigt  von  0  an,  solange  Sie 
den  Feuerknopf  gedrückt 
halten.  Bei  etwa  45  Grad  las¬ 
sen  Sie  den  Feuerknopf  los,  so 
kommen  Sie  wesentlich  weiter. 
Mein  HIGH-SCORE  beträgt 
305500  Punkte  (dann  fielen 
mir  die  Arme  ab!). 

3.  ALIEN  8 

Auch  bei  diesem  Spiel  steht 
bei  weitem  nicht  alles  in  der 
beiliegenden  Anleitung.  Hier 
einige  Tips: 

-Um  einen  besonders  weiten 
oder  hohen  Sprung  auszu¬ 
führen,  müssen  Sie  den 
Feuerknopf  FESTHALTEN! 

-  Das  Energiewesen  läßt  sich 
sehr  leicht  steuern,  wenn  Sie 
darauf  springen  und  einen 
Gegenstand  darauf  oblegen. 

-  Sie  müssen  nicht  auf  einem 
Gegenstand  stehen,  um  die¬ 
sen  aufzunehmen.  Es  reicht, 
wenn  Sie  knapp  daneben 
stehen  oder  ihn  mit  der  Fuß¬ 
spitze  berühren. 

-  Die  in  den  jeweiligen  Kam¬ 
mern  benötigten  Gegen¬ 
stände  sind  immer  die 
gleichen. 

L.  Lubjuhn, 
Bergneustadl 


HP-Soft 

T.  Müller 

Hindenburg-Allee  3 
8240  Berchtesgaden 
Hot-Line  08652/63061 

*  Spitzenqualität 

*  Geniale  Preise 

*  Gratiskatalog 

Schniider  Software 

DIE  RENNER!!!!!! 

-  Wintergames  für  nur  (C)  M,90  OM 

-  Subre  Wulf  (Ultimate) 

nur  (C)  39,90  DM 

-  Fighting  Warrior  (Karate) 

(C)  39,90  DM 

-  Starion  (anspruchsvoll!!) 

(C)  39,90  DM 
-Codename  (C)  39,90DM 

-  Hacker  (Activision)  (C)  39,90  DM 

-  The  way  of  the  expl.  Fist 

(C)  39,00  DM 
-Alien 8 (Ultimate)  (C)  39,90DM 

-  Night  Lore  (Ultimate) 

(C)  39,90  DM 

-  Match  Day  (Super  Fußball) 

(C)  39,90  DM 

-  Slap  Shot  (Eishockey) 

(C)  39,00  DM 
CPC  Anwenderprogramme 

-  Oddjob  (ermöglicht  das  Einlesen 
des  MC  und  ändern  auch  das  Zu¬ 
rückholen  von  bereits  gelöschten 
Programmen)  3"  Disc  69,90  DM 

-CPC  Dictionary  (für  alle,  die  es 
nicht  leicht  mit  englischen  Anlei- 
tungen  haben!!!)  3"  Disc  69,90  DM 


Neu  MAXAM  n.u 
Assembler  -  Monitor  -  Editor 

MAXAM  ein  komplettes  Entwicklungs¬ 
system,  welches  speziell  für  den 
Schneider  CPC  entwickelt  wurde.  Die 
außergewöhnliche  Leistungsfähigkeit 
haben  bereits  viele  Autoren  erkannt 
Perfekter  Text-Editor,  der  manche  gute 
Textverarbeitung  in  den  Schatten  stellt 
-  Quelltext  kann  auch  in  Basic  erstellt 
werden  -  Mischen  von  M-Code  und  Ba¬ 
sic  möglich  -  Druckerausgabe  -  Find- 
Kommando  erspart  langwieriges 
„scrollen“  vieler  Programmzeilen  -  Me- 
nü-Steuerung  läßt  auch  für  Anfänger 
das  Handbuch  fast  überflüssig  werden. 

Deetscis  Ibersatzaa«  Im 
Haalhackn  IS.- IM 

Csssatte  6»,-  Diskette  109,-  DM 
Im  Rom-Modul  230,-  DM 

Romkartenenweiterung 

mit  4  Steckplätzen  (nur  in  Verbindung 
mit  Maxam  rni  Rom)  nur  00.-  DM 
Eprom-Software  auf  Anfrage. 

POWER-BASIC  464/664 

47  zusätzl.  RSX-Befehle 

Csssette  40.-  Diskatta  00.-  DM 
C.A.D.  464  Super-Grafikprogramm 

Cisutta  40,-  Diskette  00.-  DM 

VORTEX-RAMSPEICHER- 

ERWEITERUN6 

von  64 -512  KB  ak  279.-0M 
DFÜ-PAKET:  Terminal-Software 
Akustikkoppler  S  21  D  (mit  FTZ-Nr.). 
Keine  weitere  Hardware  erforderlich. 

nur  378,-  DM 
DRUCKERKABEL  45- dm 

Ralf  Probst 

EDV-Servlce 

Fr.-Ebert-Str.  14,  (02136)  32870 

4100  Duisburg  17 
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. Joyce . 

Der  Joyce  - 

mehr  als  nur 
ein  Textsystem 

Der  Joyce  ist  erst  wenige  Wochen  auf 
dem  Markt  und  entpuppt  sich  schon  als 
Renner.  Was  sich  bereits  auf  der  Systems 
’85  andeutete,  wurde  in  den  letzten  Wo¬ 
chen  durch  starke  Nachfrage  bestätigt. 
Für  die  Joyce-Besitzer  haben  wir  daher 
eine  feste  Rubrik  eingerichtet,  in  der  Sie 
neben  allgemeinen  Informationen,  wert¬ 
volle  Tips  und  Tricks  sowie  regelmäßige 
Programmlistings  erwarten. 


Allgemeines 


Der  Joyce  ist  der  erste  von  Schneider 
vertriebene  Computer,  bei  dem  deutlich 
ein  direkter  Einfluß  auf  die  Entwick¬ 
lungsarbeit  spürbar  ist.  So  wird  der  Joyce 
nicht  nur  mit  deutscher  Tastatur  ausge¬ 
liefert,  auch  das  zum  Rechner  ge¬ 
hörende  Textverarbeitungsprogramm 
Locoscript  und  die  Einschalt-  bzw. 
Fehlermeldung  sind  deutschsprachig. 
Die  Tatsache  mag  für  viele  selbstver¬ 
ständlich  sein,  doch  hatten  bisher  die 
wenigsten  Computersysteme  dieses 
Prädikat  vorzuweisen. 


Die  Tastatur  besteht  aus  insgesamt  82 
Tasten,  wobei  einige  schon  mit  Sonder¬ 
funktionen  belegt  sind.  Nicht  ganz  so 
erfreulich  ist,  daß  für  CP/M  so  wichtige 
Tasten  wie  CTRL  und  ESC  hier  merk¬ 
würdigerweise  ALT  und  EXIT  heißen. 
Dies  kann  zu  Verwirrungen  beim  Ar¬ 
beiten  mit  Standard-CP/M-Program- 
men  und  Handbüchern  führen.  Über 
die  Taste  PRTR  kann  man  den  an¬ 
geschlossenen  Drucker  anwählen,  wie 
mit  CTRL  P  oder  CTRL  D  beim 
Standard-CP/M.  Zusätzlich  bringt  die 
Betätigung  der  PRTR-Taste  noch  ein 
kleines  Hilfsmenue  in  die  Statuszeile 
des  CP/M,  mit  der  Druckeroptionen  wie 
NLQ,  Formfeed  oder  Linefeed  ange¬ 
wählt  werden  können.  Auch  der  Bild¬ 
schirm  sprengt  den  Rahmen  der  üb¬ 
lichen  Screen-Formate.  Eine  Darstel¬ 
lung  von  32  Zeilen  ä  90  Zeichen  sowie 
eine  Auflösung  von  720x256  Pixel, 
machen  das  Arbeiten  zwar  zu  einem 
Vergnügen,  können  jedoch  bei  der  An¬ 


passung  von  bestehenden  CP/M- 
Programmen  (Turbo  Pascal,  Multiplan 
etc.)  zu  Schwierigkeiten  führen.  Von  ei¬ 
ner  angeblichen  Verzerrung  der  Zei¬ 
chen  im  Randbereich  des  Bildschirms, 
die  schon  öfter  kritisiert  wurde,  konnten 
wir  nichts  feststellen.  Auch  auf  die  re¬ 
lativ  nahe  zum  Monitor  eingebaute 
Floppy  entsteht  kein  Einfluß  durch  ma¬ 
gnetische  Signale.  Hier  wurde  an  der 
Abschirmung  erfreulicherweise  nicht 
gespart.  Etwas  enttäuscht  waren  wir 
über  den  Standfuß  des  Monitors,  der  zu¬ 
nächst  den  Eindruck  von  Schwenkbar- 
keit  vermittelt,  sich  jedoch  als  starr  ver¬ 
schraubte  Attrappe  entpuppte.  Im  Ge¬ 
gensatz  zu  normalen  Textverarbeitung¬ 
en  wie  Wordstar,  macht  Locoscript 
nicht  vom  System format  Gebrauch, 
sondern  verwendet  das  weniger  übliche 
IBM-Format.  Der  Drucker,  der  als  drit¬ 
tes  Ausgabemedium  des  Rechners  ar¬ 
beitet,  ist  nahezu  identisch  mit  dem 
Seikosha-SP  1000.  Hier  fällt  zunächst 
die  anwenderfreundliche  Funktion  des 
automatischen  Papiereinzugs  auf. 
Auch  von  der  mechanischen  Stabilität 
und  der  Geräuschentwicklung  steht  der 
Matrixdrucker  der  1000,-  DM-Klasse 
in  nichts  nach.  Lediglich  das  zwar  gut 
abgeschirmte,  aber  dadurch  recht  starre 
Verbindungskabel  ist  ein  wenig  kurz 
geraten.  Mit  einer  Druckgeschwindig¬ 
keit  von  90  Zeichen/Sekunde  (mit  NLQ 
20  Z/S)  ist  er  zwar  nicht  sehr  schnell, 
bietet  aber  hervorragende  Schriftqua¬ 
lität  und  zudem  internationale  Zei¬ 
chensätze. 


Locoscript 


Mit  Locoscript  präsentiert  sich  ein 
Textprogramm  der  Superlative.  Sowohl 
Geschwindigkeit,  Kapazität  und  Bedie¬ 
nungskomfort  sind  für  8-Bit-Systeme 
nahezu  einzigartig.  Schon  nach  kurzer 
Einarbeitungszeit  ist  auch  der  Com¬ 
puterneuling  in  der  Lage,  mit  Lo¬ 
coscript  zu  arbeiten.Unterstützend  wir¬ 
ken  dabei  die  Pull-Down  Menues,  in 
denen  die  einzelnen  Funktionen  sehr 
übersichtlich  angezeigt  werden.  Beim 
Umgang  mit  Locoscript  kommt  vor  al¬ 
lem  die  90-Zeichen  Darstellung  zu 
gute,  da  direkt  im  Text  Steuerzeichen 
für  die  Druckerausgabe  plaziert  werden 
können. 


Die  Lange  eines  zu  erfassenden  Textes 
ist  nur  von  der  Diskettenspeicherka¬ 
pazität  abhängig,  was  in  der  Grundaus¬ 
stattung  zu  Problemen  führen  kann. 
Abhilfe  schafft  hier  das  optional  erhält¬ 
liche  IMB-Laufwerk  von  Schneider, 
das  zum  Einbau  in  das  Monitorgehäuse 
vorgesehen  ist.  Eine  ausführliche 
Funktionsbeschreibung  von  Loco¬ 
script  mit  Vergleichen  zu  anderen  Text¬ 
programmen  erwartet  Sie  in  unserer 
nächsten  Ausgabe. 


CP/M 


Wie  schon  beim  CPC  6128,  arbeitet  der 
Joyce  mit  dem  Betriebssystem  CP/M 
plus.  Nach  dem  Booten  von  CP/M 
stehen  dem  Anwender  3 1 597  Bytes  freie 
Speicherkapazität  zur  Verfügung.  Da 
der  Joyce  aber  bekanntlich  mit  256K 
RAM  ausgerüstet  ist,  bleibt  die  Frage 
nach  den  restlichen  Bytes.  Der  Joyce 
stellt  eine  sogenannte  RAM-Disk  von 
insgesamt  112KB  zur  Verfügung,  die 
wie  ein  normales  Diskettenlaufwerk 
angesprochen  werden  (Laufwerk  M:). 
Das  ermöglicht  einen  sehr  schnellen 
Zugriff  auf  Daten  und  spart  Disketten¬ 
kapazität. 

Zum  Lieferumfang  gehört  des  weiteren 
GSX,  die  grafische  Systemerweiterung 
unter  CP/M  sowie  Logo. 

Eine  recht  ungewöhnliche  Basic- 
Version  ist  mit  Mallard-Basic  verfüg¬ 
bar.  Mallard-Basic  läuft  unter  CP/M 
und  wurde  von  Locomotive  Software, 
die  schon  das  AMSDOS  für  die  CPC’s 
geschrieben  haben,  entwickelt.  Dabei 
ist  das  Mallard-Basic  zum  bekannten 
M  Basic  von  Microsoft  zum  größten  Teil 
kompatibel,  aber  wesentlich  schneller 
in  der  Ablaufgeschwindigkeit.  Das  be¬ 
ste  an  Mallard-Basic  allerdings,  ist  die 
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Jetsam-Funktion,  mit  der  Index-indi¬ 
zierte  Dateien  mit  wahlfreiem  Zugriff  er¬ 
stellt  und  verwaltet  werden.  Jetsam  ist 
allerdings  nur  in  Verbindung  mit  Mal- 
lard-Basic  verwendbar  und  erreicht 
erstaunliche  Zugriffszeiten  (Bild  1). 

Zugriffszeiten  von  Jetsam  unter  CP/M: 

200  Einträge  CPC  6128  5.07  min 

200  Einträge  Joyce  3.47  min 

200  Einträge  RAM-Disk  3.00  min 

Im  Gegensatz  zu  M Basic  ist  das 
Mallard-Basic  etwa  um  40%  schneller  - 
eine  erstaunliche  Geschwindigkeit! 
Übrigens  laufen  mit  Mallard-Basic  er¬ 
stellte  Programme  auf  allen  CPC  Rech¬ 
nern.  Zu  beachten  sind  dabei  allerdings 
die  unterschiedlichen  Bildschirmsteue¬ 
rungen  von  CP/M  2.2  und  CP/M  plus, 
die  dann  erst  entsprechend  angepaßt 
werden  müssen. 

Mallard-Basic  überzeugt  durch  seinen 
reichhaltigen  Befehlssatz  und  die 
Jetsam-Funktion,  so  daß  diese  Basic- 
Version  für  alle  Anwenderprogramme 
ideal  ist. 

Im  Test  erwies  sich  nur  der  Zeileneditor 
als  Schwachstelle,  die  Einbindung  ei¬ 
nes  wesentlich  komfortableren  Bild¬ 
schirmeditors  wäre  ohne  Probleme  mög¬ 
lich  gewesen.  Zwar  wirkt  der  Komman¬ 
do-Editor  unterstützend,  aber  Einfügen 
bzw.  Überschreiben  ist  auch  nur  in¬ 
nerhalb  einer  logischen  Zeile  möglich. 
Umständlich  wird  auch  die  Cursor¬ 
positionierung,  die  durchweg  über 
ESC-Sequenzen  durchgeführt  wird,  da 
keine  Befehle  zur  direkten  Cursor¬ 
positionierung  implementiert  sind. 
Diese  ESC-Sequenzen  sind  jedoch  aus¬ 
führlich  im  Handbuch  erläutert.  Über¬ 
haupt  ist  das  Basic-Handbuch  sehr 
umfangreich  und  ausführlich.  Mängel 
konnten  wir  nur  wenige  entdecken.  So 
ist  z.B.  die  Funktion  Rankspec  nicht  be¬ 
schrieben  und  bei  einigen  Befehlen  ver¬ 
mißt  man  Anwendungsbeispiele.  Nichts 
desto  Trotz,  kann  das  Handbuch  als 
vorbildlich  gelten.  Doch  bleibt  zu  hof¬ 
fen,  daß  es  in  Kürze  entsprechende 
Zusatz-Literatur  zum  Umgang  mit 
Mallard-Basic  geben  wird.  Bis  heute  ha¬ 
ben  wir  vergeblich  nach  entsprechen¬ 
der  Literatur  gesucht. 


Fazit 


Der  Joyce  ist  ein  professioneller  Com¬ 
puter  und  Textsystem  in  einem.  Mit 
diesem  durchdachten  Konzept  werden 
viele  Anwendungsbereiche  abgedeckt 
und  das  zu  einem  Preis,  der  weit  unter 
dem  vergleichbarer  Systeme  liegt. 
Trennt  man  die  Einsatzmöglichkeiten 
des  Joyce  nach  den  Kriterien  Textsy¬ 
stem  und  Computer,  so  ist  vergleichs¬ 
weise  für  eine  normale  Speicherschreib¬ 
maschine  der  gleiche  Preis  zu  zahlen. 
Daß  der  Joyce  darüber  hinaus  ein  ech¬ 
ter  CP/M-Rechner  ist,  spricht  für  das 
Preis-/Leistungsverhältnis.  Der  Joyce 
vereinigt  alle  Komponenten  eines 
Profi-Systems  zum  Preis  eines  lei¬ 
stungsstarken  Heimcomputers.  (SR) 
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JOYCE  Notizblock 

Anwendung: 

Das  Notizblockprogramm  ermöglicht 
eine  einfache  Verwaltung  von  Daten 
wie  Adressen,  Terminen  usw.,  bei  de¬ 
nen  formatfreie  Eingaben  von  Vorteil 
sind.  Diese  können  in  verschiedenen 
Notizblöcken  (Dateien)  gesammelt  wer¬ 
denden  denen  sich  wiederum  mehrere 
in  einer  Ablage  (Diskette)  befinden  dür¬ 
fen.  Dadurch  sind  sinnvolle  Gruppie¬ 
rungen  der  Daten  möglich.  Das  Pro¬ 
gramm  ist  menuegesteuert  und  hinsicht¬ 
lich  Benutzerfehlern  weitgehend  gesi¬ 
chert. 

Falls  Ihnen  das  Eintippen  zu  mühsam 
ist:  Das  komplette  Programm,  auch  der 
Teil,  der  erst  in  der  nächsten  Ausgabe 
von  CPC  International  abgedruckt  wird, 
ist  sofort  auf  Diskette'  für  49  -  DM  über 
den  Verlag  zu  erhalten. 

Handhabung: 

Nach  dem  Starten  des  Programms  er¬ 
scheint  am  oberen  Bildrand  eine  Me- 
nueleiste,  mit  den  Punkten  Bearbeiten, 
Ablage,  Optionen  und  Ende.  Unter  dem 
Punkt  Ablage  klappt  ein  Untermenue 
auf,  das  die  Funktionen  Öffnen,  Umbe¬ 
nennen  und  Löschen  bietet  und  der  In¬ 
halt  der  Ablage  wird  angezeigt,  dies 
sind  die  auf  der  Diskette  befindlichen 
Notizblöcke.  Nun  kann  ein  Block  durch 
Aktivieren  der  Funktion  Öffnen  zum 
Bearbeiten  geöffnet  werden,  was  durch 
Drücken  der  ENTER-Taste  geschieht. 
Es  erscheint  ein  Fenster,  das  die  Ein¬ 
gabe  eines  Blocknamens  (CPM-Datei- 
name  ohne  Erweiterung,  max.  8 
Zeichen)  und  einer  optionalen  Be¬ 
merkung  erwartet.  Die  Eingabe  wird 
mit  der  EXIT-Taste  beendet.  Öffnet 
man  einen  noch  nicht  vorhandenen 
Block,  so  wird  dieser  neu  angelegt.  Die 
Funktion  Umbenennen  erlaubt  die  Na¬ 
mensänderung  eines  vorhandenen 
Blockes,  mit  Löschen  kann  ein  nicht 
mehr  benötigter  Notizblock  gelöscht 
werden.  Die  Auswahl  einer  Funktion 
geschieht  mit  Hilfe  der  Cursor- 
Steuertasten,  mit  der  CAN-Taste  kann 
jede  gewählte  Funktion  abgebrochen 


werden.  Ebenso  dient  sie  zum  Verlas¬ 
sen  eines  aufgeklappten  Untermenues 
und  man  kehrt  zum  Darüberlicgen- 
den  zurück. 

Um  einen  geöffneten  Notizblock  zu  be¬ 
arbeiten,  wird  dieser  Punkt  in  der  Me¬ 
nüleiste  gewählt  und  aktiviert.  Es 
klappt  ein  neues  Untermenue  auf,  das 
die  Funktionen  Notieren,  Suchen,  Än¬ 
dern,  Löschen  und  Drucken  bietet  Eben¬ 
so  erscheint  ein  40x10  Zeichen  großes 
Notizblatt. 


Mit  Notieren  können  neue  Notizen  ein¬ 
getragen  werden.  Dabei  ist  zu  überle¬ 
gen,  unter  welchem  Begriff  man  die 
Notiz  später  wiederfinden  möchte.  Die¬ 
ser  Suchbegriff  (‘Schlüsselwort’)  muß 
auf  dem  Blatt  kenntlich  gemacht  wer¬ 
den,  was  durch  Unterstreichen  ge¬ 
schieht.  Auf  einem  Blatt  können  bis  zu 
acht  Suchbegriffe  gekennzeichnet  wer¬ 
den,  die  wiederum  eine  Länge  bis  zu  30 
Zeichen  haben  dürfen.  Wird  kein  Schlüs¬ 
sel  auf  dem  Blatt  markiert,  so  erfolgt 
eine  Fehlermeldung,  werden  mehr  defi¬ 
niert,  so  werden  nur  die  ersten  acht  be¬ 
nutzt.  Die  restlichen  Markierungen 
können  nicht  zum  Suchen  verwendet 
werden.  Der  Inhalt  des  Notizblatts 
kann  mit  Hilfe  der  Editorfunktionen  (s. 
Tabelle)  eingegeben  werden.  Ist  die 
Notiz  vollständig  eingetragen,  so  wird 
sie  durch  Drücken  der  EXIT-Taste  ab¬ 
gespeichert.  Danach  befindet  man  sich 
wieder  im  Bearbeitungsmenue  und 
kann  erneut  eine  der  Funktionen 
wählen. 

Fortsetzung  Seite  14 


menue/funktionswahl 


AUSWAEHLEN 

CURSORTASTEN 

AKTIVIEREN 

ENTER  /  RETURN 

ABBRECHEN 

CAN 

EDITORFUNKTIONEN 

POSITIONIEREN 

CURSORTASTEN  +  TAB . TASTE 

CURSOR  LINKS  OBEN 

[ZEILE  EZ] 

CURSOR  LINKS  UNTEN 

[FORM] 

ZEICHEN  LINKS  LOESCHEN 

[ < -DEL ] 

ZEICHEN  UNTER  CURSOR  LOESCHEN 

[ DEL- > ] 

LEERZEICHEN  EINFUEGEN 

[F1/F2] 

ZEILE  EINFUEGEN 

[EINBL] 

ZEILE  AUSFUEGEN 

[ AUSBL ] 

ZEILE  BIS  CURSOR  LOESCHEN 

[ALT]  +  [ < -DEL] 

ZEILE  AB  CURSOR  LOESCHEN 

[ALT]  +  [ DEL- > ] 

ZEILE  LOESCHEN 

[ F7/F8 ] 

CURSOR  HOME + FENSTER  LOESCHEN 

[ERS. SUCHE] 

FENSTER  BIS  CURSOR  LOESCHEN 

[ALT]  +  [1] 

FENSTER  AB  CURSOR  LOESCHEN 

[ALT]  +  [2] 

INVERS  EIN/AUS 

[  +  ] 

UNTERSTREICHEN  EIN/AUS 

[-] 

1  '86  CRC  1 1 


iMrtbsäita“ 


Schneider 

COriPUTER  DIVISION 


Brandaktuell 
AMX-Mouse 

Mit  Software  (Zeichenprogramm  +  Basicer- 
weiterung)  Ähnlich  wie  bei  Macintosh  und 
Atari  520  ST  für  CPC  464,  664  und  61 28. 
Komplett  DM  298,- 

Datenrecorder 

für  664  und  6128  komplett  mit 
Anschlußkabel  DM  128- 


■\  r 


NEU  Super  Text  Adventure 

DRACHENLAND 

Eine  Zeit  der  Ruhe  und  des  Friedens  herrscht  im  fernen  Drachental. 
Tamo,  unser  Held  geht  in  den  hohen  Bergen  der  Jagd  nach.  Ein  alter 
Mann  wartet  auf  ihn ....  sein  Name  ist  Gorywyn  der  Weise ...  er  hat  eine 
wichtige  Aufgabe  für  Tamo.  »Wenn  nun  die  Tagnacht  heranbricht  und 
sich  Dämonen  auf  unsere  Welt  wagen»,  so  sagt  die  Prophezeihung, 
»wird  Ahriman  sich  1000  unschuldige  Seelen  in  sein  Reich  holen !  Mache 
dich  auf  den  gefährlichen  Weg  zum  hohen  Feste,  um  die  Elfen  zu  war¬ 
nen!  Nimm  dich  in  acht!!!«  Übernehmen 
Sie  nun,  Fremder,  die  Rolle  von  Tamo . . .  C/D  DM  39,-749,- 


HEADLINE 

(3V5.25") 

Spitzendruckprogramm 
für  den  Matrixdrucker 


DM 

198- 


•  Briefbögen 

•  Barcodes 

•  Formulare 

•  Tabellen 

•  Etiketten 

•  Werbung 

•  Rundschreiben 


Vortex  Speicher¬ 
erweiterungen 

(für  CPC  464,  664) 

64  K  =  275- 

128  K=  348- 

256  K  =  478,- 

320  K  =  528,- 

512  K=  589,- 

664  Erweiterung  nur  unter  CP/M 


Vortex  Disketten  Station 

für  CPC  464,  664, 61 28 
mit  voller  Kapazität 

•  Einfachlaufwerk  1198,-  •  Doppellaufwerk  1698,- 

•  Controller  allein  548,-  •Zweitlaufwerk  698,- 

•  Einbaulaufwerk  500,-  (für  664  +  6128) 


NEU  Super  Graphic  Adventure 

tilli  k  lei  [ici  \ 

Als  Privatdetektiv  Jeff  Brown  haben 
Sie  eine  gefährliche  Mission  zu  erfül¬ 
len.  Schauplatz  ist  die  South-Bronx  in 
New  York.  Kämpfen  Sie  sich  durch  - 
bis  zur  Lösung  dieses  spannenden 
Graphic-Textadventures.  -  Wieder 
eine  Meisterleistung  des  Adventure- 
Writers  Peter  Mengel. 

^  C/D  DM  39, -/49,- 

Wir  sind 
Ihr  Versand 
mit  dem 
guten  Service. 


Vokabeltrainer 

Der  Vokabeltrainer  ist  ein  ausgereif¬ 
tes  Übungsprogramm.  Er  berücksich¬ 
tigt  die  wichtigsten  pädagogischen 
Grundsätze.  Beliebig  viele  Lektio¬ 
nen  können  gelernt,  geübt  und  abge¬ 
fragt  werden. 

C  49,- 

D  3”,  5,25”  58,- 

Verbentrainer  (neu!) 

Programm  zum  Üben  der  unregel¬ 
mäßigen  englischen  Verben. 

C  39- 
D  49,- 


r  ^ 

1.  Hardware 

CPC  464  grün/color  798,-/1298,—  | 

CPC  664  grün/color  1396, — /1898, — 

Monitor  Color  798, — 

CPC  464  mit  Stereo  TV/Color  1998,— 


CPC  6128  grün/color 
Drucker  NLQ  401 
Diskettenstation  DDI-1 
Diskettenstation  FD-1 
Schneider  Joystick 
Disketten  3" 

Disketten  DS/DD  5V4‘ 

Traktor  für  NLQ  401 
Farbband  für  NLQ  401 
Joystick-Y-Adapter 
Schutzhaube  Rauchglas 
f.  Konsole  464/664 
Druckerständer  Rauchglas 
Diskbox  3” 

RS  232  (V  24)  Schnittstelle  mit  Software 
Telefonmodem  (Akustikkoppler) 
Lightpen 

Quickshot  l/ll  (Joystick) 

The  Boss  Joystick 
Competition  pro  5000/Micro 


1598,-/2098,— 

798,— 

798,— 

598,— 

39.50 
ä  12,— 

10  Stück  39,— 

79.50 

14.80 

24.50 

35,— 
98,- 

39.80 
168,— 
298,— 

98,— 
19,80/24,80 
54,— 
69,— 


Schutzhauben  in  Behördenqualität  464/664  für: 
Floppy  24,80 

Monitor  Gün/color  36,80 

Konsole/Drucker  26,80 

Verlängerung  Monitor  Konsole 
464/664  29,90/39,80 

Druckerkabel  464/664/6128  48,50/58,50 

Schneider  Computertisch  249, — 

Sprachsynthesizer  (Stereo)  158,— 

Datenrecorder  für  CPC  664/6128  128, — 

Joystic  (»The  Stic»)  49,— 


2.  Empfehlenswerte,  getestete 
Anwenderprogramme 

Para  (Diskmanager)  58, — 

Basic-Compller  (dt.) 

Musikcomposer  49, — 

Azimuth  (Kopfjustage)  39, — 

Diagramm  Generator  69,— 

Deutscher  Zeichensatz  (DIN)  19,50 

Power  Basic  49,— 


Assembt 

V  AW’1 


Weeske  G-Mon 
und  Editor  (C,  3",  5*/4”) 

Statistic  Star 
Data  Star 
Disksort 
Creator  Star 
Designer  Star 

The  Quill  (Advgature-Entwicklung) 
Graptic-Master’3",  514" 

(nach  Koala-Art  Menue-gesieuert) 
Tasword  (deutsch,  C/Disk) 
Taspfint  (deutsch,  C/Disk) 
Tascopy  (deutsch,  C/Disk) 

Focus  C,  D 
CAD  464  C/D 
Color  Star  C/O 
Paint  Box 

Schneider  Software 

Tex  Pack 
ComPack 
Selbstlernbasic  1 
Selbstlernbasic  2 
Assembler/Disassembler 
Hisoft-Pascal 

Benutzerhandbuch  CPC  6128 
Basichandbuch 
Firmware  Handbuch 


ler-Disassembler-Monitor 


58,— /88,— 
59,90/79,90 
49,90/69,90 
59,90 
59,90 
59,90/73,90 
69,50 
*».-/?«,- 

69, — /99.—  I 
39,— /69.-  I 
39,— /69.— 
71  ,-m.- ! 
4B.-/M,- 
*1.-/4«,- 

m- 


Die  Sensation  auf  dem  Softwaremarkt 


ln  Verbindung  mit  Vortex-Speichererweiterung  64  K 

Wordstar  3,0  mit  Mailmerge  3",  5,25"  1MP- 

dBasi  II,  Version  2,41  3”,  5,25"  199,- 

Maltlplan  Version  1,06 

Iür464,  664. 6128  3",  5,25”  199," 


Turbo  Pascal  3,0 

Die  meistgekaufte  Programmiersprache 
(300.000  mal) 

Version  I  225,— 

Version  II  285,— 

(mit  Graphic-Erweiterung) 


Potsdamer  Ring  10  •  7150  Backnang  •  ■aS>  07191/1528-29 
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NEU  Super  Graphic  Adventure 

SHERLOCK  HOLMES 

Holmes  und  Watson  waren  wochenlang  hinter  dem  geheim¬ 
nisvollen  Frauenmörder  her.  Immerhin  war  der  Spinnenmör¬ 
der  ein  lOfacher  Mörder!  Zu  guter  Letzt  löste  Holmes  den 
Fall.  Auch  in  höchst  gefährlichen  Situationen  wich  Watson 
nicht  von  seiner  Seite. 

Ihr  neues  Ziel  ist  das  malerische  Hochland  Schottlands.  Als 
sie  so  durch  die  Gegend  wandern,  stoßen  sie  auf  eine 
geheimnisvolle  alte  Herberge.  Sie  trägt  den  seltsamen 
Namen  ’the  rat  and  the  raven’.  Was  bedeutet  das?  Ist  dies  der 
Anfang  zu  einem  neuen  Abenteuer??? 

Erleben  Sie  die  Abenteuer  hautnah,  als  ob  Sie  beide  in  einer 
Person  wären.  D  DM  49,- 


Telefon-Nummer 


o  Datum,  Unterschrift 


Benötigen  Sie  hochaktuelle  - 
oder  ganz  spezielle-lnforma- 
tionen  rufen  Sie  bitte  bei  uns 
an  und  verlangen  unseren 
Spezialisten  Herrn  Dietze. 

Er  berät  Sie  gern  in  allen  Fach- 
t ragen.  -  Händleranfragen 
eiwünscht.  -  Schulen  erhalten 
Sonderkonditionen. 

/Bitte  ausschneiden  Auf  Postkarte  kleben  -  und  ab  die  Post 

O  Senden  Sie  mir  bitte  unverbindlich  Ihren 

CPC-Katalog  zu. 

Q  Hiermit  bestelle  ich  per  Nachnahme: 


Vorname,  Name 
Straße,  Hausnummer 
PLZ,  Ort 


Oo3eSs 
Oeitfj  Jgfrer 
3-DBoY°»n 


S°«thpr  "S  C/D 
Soukef? ßelle 


JOYCE  PCW  8256 


Komplettlösung  für  Textverarbeitung  und  andere  professionelle  PC-Anwendungen 
Hartware  besteht  aus:  Hauptspeicher  256  KB,  Bildschirm  32  Zeilen/90  Zeichen,  Dis¬ 
kettenlaufwerk  250  KB,  Tastatur  deutsch,  Drucker  90  Zeichen/sek.  Stromversor¬ 
gung  (nur  ein  Netzkabel) 


DM  2.490- 


464,  664,  6128 


f 

Bounty  Bob  strikes  back 
Kung  Fu 
Marsport 
Don't  Par* 

Chlmera 
Wil  low  pattem 
Matchday 
Matchpoint 
Terrormollnos 
SpyvsSpy 
Never  ending  Story 
Tales  of  arabian  Ughts 
Herbert  dummy  run 
Winter  Games 
Night  Shade 
Lord  ot  the  Rings 
Secret  Diary  ot  A.M 
Kaiser 

L 


DRUCKER 

Riteman  F+ 1098,-  •  Star  SG  10  998,- 
Panasonic  1080898,-  •  Panasonic  1091 998,- 
Panasonic  1092  1298,- 
Farbdrucker  Okimate  20  898,- 

v_ y 


Hervorragende  Anwenderprogramme 

RH-Büro  (Text  +  Adressen)  3”,  5,25"  99,- 
RH-Dat.  =  79,- 

Datenverarbeitung  464,  664,  6128 ,  Joyce 


NEU  Super  Graphic  Adventure 

iDer  Diamant 
von  Habenfels 

Ein  deutsches  Graphik-Textadventure  bestehend  aus 
zwei  Teilen.  Im  1.  Teil  erwarten  Sie  Abenteuer  auf  einer 
tropischen  Insel  in  der  Südsee.  Bekämpfen  Sie  Piraten, 
Drachen  und  Seeschlangen.  Im  2.  Teil  finden  Sie  sich  im 
Mittelalter  wieder,  wobei  Sie  die  Aufgabe  haben,  die 
Diamanten  vom  Rabenfels  zu  finden  und  den  mächti¬ 
gen  Zauberer  Zabor  zu  besiegen.  Versuchen  Sie  dieses 
brillante  deutsche  Graphikadventure  zu  lösen. 

I  C/D  DM  39,-/49,-J 


n— 
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NEU  Super  Text  Adventure 

Rei/e  durch  die  Zeit 

Mit  einer,  bei  Ausgrabungen  entdeckten,  stei¬ 
nernen  Zeitmaschine,  reisen  Sie  als  »Lone  Wulf«, 
der  einsame  Kämpfer,  durch  verschiedene  Zeit¬ 
epochen. 

Sie  müssen  die  schwierigsten  Aufgaben  bestehen 
und  gegen  die  seltsamsten  Wesen  kämpfen. 


C/D  DM  39,— /49,-j 


Werbeagentur  wolf  071 91/205  98 


. "Joyce 
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Mit  der  Funktion  Suchen  kann  eine 
Eintragung  wiedergefunden  werden. 
Dazu  gibt  man  auf  dem  Notizblatt  den 
entsprechenden  Suchbegriff  unter¬ 
strichen  ein  und  veranlaßt  das  Suchen 
durch  betätigen  der  EXIT-Taste.  Wenn 
keine  entsprechende  Notiz  gefunden 
wurde  erscheint  eine  Fehlermeldung. 
Werden  mehrere  Schlüssel  eingegeben, 
so  werden  nur  Notizen  angezeigt,  die 
ebenfalls  die  entsprechenden  Schlüssel 
beinhalten.  Dabei  ist  die  Reihenfolge 
der  Schlüssel  unbedeutend.  Ebenso 
sind  Groß-/Kleinschreibung  und  Leer¬ 
zeichen  innerhalb  eines  Suchbegriffes 
unbedeutend. 

Mit  der  Funktion  Ändern  kann  eine  ge¬ 
fundene  Notiz  geändert  werden  (was 
sonst?!).  Dies  trifft  auch  aufdie  Suchbe¬ 
griffe  der  Notiz  zu. 

Die  Funktionen  Löschen  und  Drucken 
sind  selbsterklärend  und  beziehen  sich 
jeweils  auf  eine  vorher  gefundene 
Notiz. 

Die  Funktionen  des  Hauptmenue- 
punktes  Optionen  sind  im  abgedruck¬ 
ten  Programm  aus  Platzgründen  in 
diesem  Heft  nicht  implementiert  und 
werden  in  der  nächsten  Ausgabe  nach¬ 
geliefert  und  beschrieben.  Aus  diesem 
Grund  ist  von  einer  Zeilenumnumerie- 
rung  (RENUM)  abzuraten.  Ebenso 
sollten  die  Kommentare  aus  Speicher¬ 
platzgründen  nicht  eingegeben  werden. 
Trotz  dieser  fehlenden  Funktionen  ist 
das  Programm  in  der  abgedruckten 
Version  funktionsfähig! 

Der  Punkt  Ende  beendet  das  Programm 
und  kehrt  zum  Basic  zurück. 

Diskettenwechsel: 

Datendisketten  können  gewechselt 
werden,  wenn  kein  Untermenue  aufge¬ 
klappt  ist,  d.h.  wenn  man  sich  in  der 
oberen  Menueleiste  befindet. 

Bedienungsübersicht: 

Die  einzelnen  Menuepunkte  werden 
mit  den  Cursortasten  angewählt.  Die 
Aktivierung  erfolgt  durch  Drücken  der 
ENTER-Taste.  Darauf  hin  klappt  ent¬ 
weder  ein  Untermenue  auf  oder  das 
Programm  erwartet  eine  Eingabe. 

Eingaben  werden  mit  Hilfe  der  Editor¬ 
funktionen  getätigt  und  durch  Drücken 
der  EXIT-Taste  beendet,  worauf  ver¬ 
sucht  wird,  die  im  Menue  ausgewählte 
Funktion  auszuführen. 

Die  Taste  CAN  dient  zum  Abbrechen 
(CANcel)  einer  Funktion  bzw.  zum 
Verlassen  eines  Untermenues. 

Hinweis  zur  Eingabe  des  Listings: 

Da  das  Listing  mit  40  Zeichen  pro  Zeile 
abgedruckt  ist,  ist  es  ratsam,  vor  Beginn 
der  Eingabe  den  Befehl  WIDTH  40  ein¬ 
zugeben.  Bevor  man  das  Programm 
startet,  muß  die  Bildschirmbreite  wie¬ 
der  mit  WIDTH  90  auf  90  Zeichen  ge¬ 
bracht  werden. 

1  *  save''notbcok" 

10  CLEAR  . .600. ,525: OPTION  RUH: DEFINT  a- 
z: BUFFERS  6: OH  ERROR  GOTO  100 
20  GOTO  60000  ’Hauptpgm. 

90  elln=0 : GOTO  105  'Fehlerbehandlung 
100  ecod=ERR: el ln=ERL 

105  IF  ecod=0  OR  eflg=l  GOTO  140  ELSE  wy 
=5: wx=64: wb=16:  wh=2: frame=2: PRIHT  ctlS(l 


4  > ; ctlS (23) ; : : GOSUB  320 

110  PRIHT  wscrS  <1 > ; ctlS  <10 ) ; "  Fehler  Hr. 

” ; : PRIHT  USIHG"###" ; ecod; : PRIHT"  ":PRIH 
T"  CAH  drücken 

120  beep=0:  VHILE  IHKEYSOCHRS  <6>  :  IF  beep 
=0  THEH  FOR  beep=l  TO  4*beepf lg:  PRIHT  ct 
IS  <27 ) ;  :  HEXT : beep=50  ELSE  beep=beep-l 
130  VEND: PRIHT  wscrS (2) ; ctlS (9) ; ctlS (10) 
jCtlS<15> 

140  IF  elin  THEH  RESUKE  HEXT  ELSE  RETURH 
200  PRIHT  ctlS <15+  < (chatr  AHD  l)  =  l)>:ctl 

5  <17+  <  <chatr  AHD  2>=2> ) J : RETURH  'Invers/ 
unterstreichen  an/aus  entspr.  Zelchenatt 
ribut 

210  PRIHT  ctlS (15) ; ctlS (17) ;: RETURH  ’  nor 
male  Darstellung 

220  k=J  :  chatr=ASC  OIIDS  <wpuf S  <0.  i > .  k.  1 ) >  : 
VHILE  J  <=wb  AHD  chatr=ASC (KIDS (wpuf S <0,  1 
> ,J+<J>wb>, 1> ) :J*J+1: VEHD: RETURH  'In  Zei 
le  ab  Pos.  J  Teilzeichenkette  mit  gleich 
en  Attributen  filtern 
230  'eine  Vlndowzelle  ausgeben: 

240  PRIHT  fulscrS; ctlS  <23) : SVAP  tnp, Chat 
r: chatr=0 : FOR  J=0  TO  1 : l=wb-LEH <wpuf S <J  , 

1  >  >  :  wpufS <J  ,  1  >  =wpufS  (J  ,  D+STRIHGS  <1*ABS< 
1>=0), J*32):NEXT  ’akt.  Attr.-Vert  speich 
ern,  Länge  an  Vlndow  anpassen 
250  IF  LEFTS (wpufs  <0 , 1 > , wb)=STRIHGS (wb,  c 
hatr)  THEH  k=l : J =wb+l :  GOTO  270  ELSE  IF  c 
hatr<3  THEH  chatr=chatr+l : GOTO  250  ELSE 
J=1  'ganze  Zelle  gleiches  Attr.  ?  — >  A 

usgabe  am  Stück,  sonst  filtern 
260  GOSUB  220 

270  GOSUB  200: PRIHT  ctlS <21 >; CHRS <31+wy+ 
1)  ;  CHRS <31+wx+k> ; KIDS <wpuf S <1, 1) , k.  J-k) : 
IF  J  <=wb  GOTO  260  ELSE  SVAP  tmp, chatr:  PR 
IHT  wscrS (1); ctlS (22) ;: GOTO  210  'Tellzel 
chenketten  ausgeben  bis  Zelle  fertig,  da 
nn  zurück. 

290  GOSUB  300: FOR  l=crslln  TO  wh:GOSUB  2 
40:  HEXT:  RETURH  '  VI ndowlnhalt  ab  crslln  a 
usgeben 

300  PRIHT  ctlS <21 > ; CHRS <crslln+31>;  CHRS < 
crspos+31> ; : RETURH  'Cursor  positionieren 
310  wscrS  <0 ) =ctl S  <20 ) +CHRS < wy+32 ) +CHRS <w 
x+32  >  +CHRS <wh+3 1 >  +CHRS <wb+31 > : wscrS  <1 )=L 
EFTS (wscrS  <0> , 4) +CHRS <wh+32)+CHR$  <wb+32> 

: wscrS (2>=ctlS <20)+CHRS  <wy+31) +CHRS  <wx+3 
1 >  +CHRS (wh+33 ) +CHRS <wb+33  > : RETURH  • Steue 
rcodes  f.  Vlndow  generieren 
320  PRIHT  fulscrS: GOSUB  310  'Vlndow  öffn 
en,  Rahmen  mit  Zeichen  ln  frameS  zeichne 
n,  Steuersequenzen  generieren: 

330  crslln=wy:  crspos=wx:  GOSUB  300: PRIHT 
LEFTS (frans* (frame) , 1) ; STRIHGS <wb,  KIDS  <f 
rameS (frame) ,5, 1 ) ) ; KIDS (frameS (frame) ,  2, 
1) 

340  crspos=wx+wb+l : FOR  crslin=wy+l  TO  wy 
+wh: GOSUB  300: PRIHT  RIGHTS (frameS (frame > 
,1);  :  HEXT :  crslln=wy+wh+l : GOSUB  300: PRIHT 
KIDS (frameS (frame > ,  4,1); 

350  FOR  crslln=wy+l  TO  wy+wh: crspos=wx:  G 
OSUB  300: PRIHT  RIGHTS (frameS (frame) ,  1 >:  c 
rspos=wx+wb+l: GOSUB  300: PRIHT  RIGHTS (fra 
meS (frame ) , 1 ) : HEXT 

360  crsl ln=wy+wh+l : crspos=wx: GOSUB  300:  P 
RIHT  KIDS (frameS (frame), 3, 1) ( STRIHGS (wb, 
KIDS (frameS (frame)  ,5,  1) > ; KIDS (frameS (fra 
me), 4, 1) : RETURN 

370  ’ Vlndow- Editor :  1.  Funktionen 
380  IF  crsl in<wh  THEH  crspos=l : crsl ln=cr 
sl ln+1 : GOTO  300  ELSE  RETURH  ' RETURN/EHTE 
R 

390  1/  crslln>l  THEH  crslin=crslin-l:  GOT 
O  300  ELSE  crslin=wh: GOTO  300  'Cursor  ho 
ch 

400  IF  crslln<wh  THEH  crsl ln=crslin+l :  GO 
TO  300  ELSB  crsl ln=l : GOTO  300  'Cursor  ru 
nter 

410  IF  crspos> 1  THEH  crspos=crspos- 1 : GOT 
O  300  ELSE  crspos=wb: GOTO  300  'Cursor  11 
nks 

420  IF  crspostwb  THEH  crspos=crspos+l :  GO 
TO  300  ELSE  crspos= 1 : GOTO  300  'Cursor  re 
chts 

440  IF  crspos>l  THEH  crspos=crspos-l  ELS 
E  IF  crslln>l  THEH  crslln=crslln-l : crspo 
s=wb  'Zeichen  links  v.  Crs.  löschen 
445  GOSUB  300: PRIHT"  ": GOSUB  300 
450  FOR  1  =  0  TO  1 : wpuf S <1 , crsl ln)=LEFTS <w 
pu  f S ( 1 , crs 1 1 n  > , crspos- 1 ) +CHRS < 1 *32 ) +KI DS 
(wpufs <1 , crslln) , crspos+l) : HEXT: RETURH 
470  FOR  1=0  TO  1 : wpuf S <1 , crslln) =STRIHGS 
(crspos,  1*32) +KIDS (wpuf S  <1 , crslln) , crspo 
s+1) : HEXT: PRIHT  ctlS (7) ;: RETURH  'Zelle  b 
ls  Crs.  löschen 

490  FOR  1=0  TO  1 : wpuf S <1 , crslln) =LBFTS <w 
pufS  <1 ,  crslln) , crspos- D+STRIHGS (wb-crsp 
os+1, 1*32): HEXT: GOTO  630  'Zelle  ab  Crs. 
löschen 

510  FOR  J  =0  TO  1 : FOR  1  =  1  TO  wh:wpufS(J,l 
>=STRIHG$ (wb, J*32> : HEXT: HEXT: PRIHT  wscrS 
(0) ; ctlS (9) ; wscrS (1) ;  ;  ' Vlndow  löschen 
530  crspos=l: crslin=l: PRIHT  ctlS(10);:RE 
TURN  'HOHE 

550  FOR  1=0  TO  1 : wpuf S (1 , crsl ln)=LEFTS (w 
puf S (1 ,  crslln) , crspos- l>+KiD$ (wpuf S  <1 ,  er 
sl i n ) , crspos+l ) +CHRS ( 1 *32 > : HEXT : GOTO  630 
•Zeichen  unter  Crs.  löschen,  Rest  aufrü 
cken 

570  FOR  J=0  TO  1 : FOR  l=crslln  TO  wh-l:wp 
ufS  <J , 1 >=wpufS  <J , 1  +  1 ) :  HEXT:  wpufs  <J  ,  wh)=S 
TRIHGS(wb,J *32): HEXT: GOTO  600  'Zelle  auf 


ügen 

590  FOR  J  =0  TO  1 : FOR  l=wh  TO  crsliu+1  ST 
EP  -1:  wpufs (J , 1 )=wpufS (J  ,  1-1) : HEXT:  wpufS 
(J  ,  crslln)=STRIHGS (wb,  J *32)  :  HEXT  ’  Zeile 
elnf ügen 

600  crspos=l: PRIHT  ctlS <24 >;: GOSUB  290:P 
RIHT  ctlS (25); ctlS (26) ;: RETURN 
620  FOR  1  =  0  TO  1 : wpuf S (1 , crsl ln)=LEFTS <w 
pu  f S  < 1 , crslln), crspos- 1 ) +CHRS ( 1 *32  >  +KIDS 
(wpufs  <1 , crslln) , crspos, wb-erspos) : HEXT 
'Leerzeichen  elnfügen 

630  PRIHT  ctlS  (24); ctlS (26); :i=crslin:GO 
SUB  240:  PRIHT  ctlS (25) ;: RETURH 
650  FOR  1=0  TO  1 : wpuf S <1 . crslln) =STRIHGS 
(wb,  1*32): HEXT: GOSUB  630: crspos=l : GOTO  3 
00  'Zelle  löschen 

670  PRIHT  ctlS (24) ; wscrS (0) ; ctlS (25) ; otl 
S  < 12) ;  wscrS  <1 > ; ctlS (25) ; : FOR  J=0  TO  l:FO 
R  l=crslin+l  TO  wh: wpuf S <J , 1 )=STRINGS (wb 
,  J *32):  HEXT: HEXT: GOTO  490  'Vlndow  ab  Crs 
.  löschen 

690  FOR  J  =0  TO  l:FOR  1  =  1  TO  crslln-l:wpu 
f S ( j  ,  1 ) =STR I HGS ( wb, J *32 ) : HEXT : HEXT : GOSUB 
470: PRIHT  ctlS  <24  > ; wscrS (0) ; ctlS (25) ; ct 
IS (13) ; wscrS  <1 > ; : GOTO  530  'Vlndow  bis  Cr 
s.  löschen  u.  HOHE 

700  chatr=chatr  XOR  1: RETURH  'Inversflag 
umschalten 

710  chatr=chatr  XOR  2: RETURH  ' unterstrei 
chen  umschalten 

720  crspos=l : crsl in=wh: GOTO  300  'Crs.  11 
nks-unten 

730  IF  crspos+wb/10<wb  THEH  crspos=crspo 

s+wb/10  ELSE  IF  crslin<wh  THEH  crspos=l: 

crslin=crslln+l  'TAB 

740  GOTO  300 

750  'Textzeichen: 

760  GOSUB  200 :  wpufS  <1 , crslln)=LEFTS (wpuf 
S  <1 , crslln) , crspos- l>+kyS+KIDS (wpufs (1, c 
rslln)  ,  crspos+l) : wpufs  <0, crslln)=LEFTS  <w 
pufS (0,  crslln) , crspos- 1 ) +CHRS (chatr)+KID 
S (wpufS <0, crsl in) , crspos+l >  ' Textzeichen 
+  Darstellung  selbiges 
770  GOSUB  300:PRIHT  kyS ; : crspos=crspos+l 
:  IF  crspos>wb  THEH  IF  crslin<wh  THEH  crs 
pos=l : crslln=crslln+l  ELSE  crspos=wb 
780  GOSUB  210: GOTO  300 
790  ' Vlndow-Editor:  2.  Hauptpgm. 

800  PRIHT  ctlS (22) ; wscrS (1) ; :chatr=0: IF 
clr  THEH  GOSUB  510  ELSE  crsl 1 n= 1 : GOSUB  2 
90: GOSUB  530  'Unterstreichen  u.  Invers  a 
us,  Vlndow  löschen  oder  ausgeben  und  HOK 
E 

805  IF  beepflg  THEH  PRIHT  ctlS  (27) ; ctlS ( 
27); 

810  kyS=IHKEYS: IF  kyS=""  GOTO  810  ELSE  k 
y=ASC (kyS) : IF  ky>31  AHD  ky<127  THEH  GOSU 
B  760: GOTO  850  'Text 

820  1  =  1:  VHILE  l<=rets  AHD  KIDS (retS, 1 , 1) 
OkyS:  1  =  1  +  1:  VEHD:  IF  i<=rets  GOTO  860  'VE 
DIT  verlassen  ? 

830  1=1: VHILE  i<=ctlkys  AHD  KIDS(ctlkyS, 

1,  DOkyS:  1  =  1  +  1:  VEHD:  IF  Dctlkys  THEH  PR 
INT  ctlS (27) ;: GOTO  850  'Kommando  ? 

840  OH  1  GOSUB  380.390,400,410,420,440,4 
70,490,510,530. 650,670,690, 700, 700, 710, 7 
10, 550, 620,570,590, 720, 730 
850  GOTO  810 

860  PRIHT  ctlS(15);ctlS(17);ctlS (23)  ;  :  RE 
TURH 

870  IF  chatr 02  OR  nkey <kp> =maxkey  GOTO  / 
890  ELSE  m=nkey <kp>  +  1 : tmp$= UPPERS (KIDS (w 
pufS(l, 1 > , k, J-k>  > : keyS <kp, m>  ='”'  'Schluss 
el  filtern 

875  n=l: VHILE  n<=LEH(tmpS)  AND  KIDS(tmpS 
,n, 1>="  "  :  n=n+l: VEND:  tmp$=KIDS (tmpS, n> :  n 
=  I NSTR < 1 , tmpS , "  " ) : IF  n  THEH  key$(kp,m)  = 
keyS  <kp, m) + LEFTS (tmpS ,  n- 1 >  :  tmpS^KIDS (tmp 
S, n> : GOTO  875  ELSE  keyS (kp,  m)=keyS <kp, m> 

+tmp$ 

880  IF  keyS (kp, m>  <>""  THEH  nkey (kp) =nkey 
< kp ) + 1 : I F  LEN (keyS (kp,  m) ) >30  THEH  keyS<k 
p, m) =LEFTS (keyS (kp,  m> ,30) 

890  RETURH 

900  attrS="" : 1  =  1 : nkey <kp)=-l : VHILE  l<=wh 
: J=1 : VHILB  j<=wb: GOSUB  220: GOSUB  870: att 
rS=attrS+CHRS (chatr )+KKIS(J-k> : IF  LEN (at 
trS)=120  THEH  i=wh+l : J =wb+l  'Attribute  k 
omprlmleren 

910  VEHD: 1  =  1  +  1: VEND:  attrS=attrS+CHRS <255 
> : RETURH 

920  nkey (kp)=-l: FOR  1=1  TO  wh: wpufS <0. 1) 
="": HEXT: 1  =  1: 1  =  1:  k=l  'Attribute  entkomp, 
930  chatr=ASC(KIDS (attrS, 1 , 1 ) ) : IF  chatr< 
>255  THEN  J=CVI (KI DS (attrS ,  1  +  1 , 2) >  :  wpuf S 
<0, 1) =wpuf S  <0,  1 >  +STRINGS  <J  ,  chatr) :J=k+J : 
GOSUB  870: 1=1+3: k=J : IF  k>wb  AHD  i<=wh  TH 
EN  k=l: 1=1+1: GOTO  930  ELSE  GOTO  930 
940  RETURN 
990  ' Kenu-Handler: 

1000  PRIHT  fulscrS:  wy=menu (menu, 1) : wx=me 
nu (menu , 2)  :  IF  menu (menu, 4)  THEN  wb=menu < 
menu ,  3) :  wh=menu (menu ,  0)  ELSE  wb=menu (men 
u, 0)*menu (menu,  3) : wh=l  ' Nenngrößen  erm. 
1005  RETURH 

1010  PRIHT  ctlS(14);ctlS (23) ; : GOSUB  1000 
: GOSUB  320: crslln=wy+l: crspos=wx+l:  FOR  1 
=  0  TO  menu (menu, 0)-l:  GOSUB  300: PRIHT  men 
uS (menu , 1 > : IF  menu (menu,  4)  THEH  crslin=c 
rslin+1  ELSE  crspos=crspos+menu (menu ,  3) 

' Kenu  ausgeben 
1020  HEXT: RETURH 

1030  GOSUB  200: IF  menu (menu, 4)  THEH  ersp 
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:  crsi  in=wy+lkt  (menu  >  ELSE  crslln= 
wy+ 1 :  crspos= wy+ < f kt (manu > - X  > tuenu (manu ,  3 
>+l  'Menupunkt  mit  chatr  darstellen 
1040  GOSUB  300: PRINT  menuS (menu , f kt (menu 
>-l>: RETURN 

1050  GOSUB  1000: PRINT  ctl»(23);:IF  beepf 
lg  THBN  PRINT  ctl* (27)  'aus  Menu  wählen 
1060  chetr=0: GOSUB  1030 

1070  ky»=INKEY»: IF  ky*=""  GOTO  1070  ELSE 
ky= ASC  <  ky*  > : I F  ky=13  OR  ky=8  GOTO  1110 
1060  chatr=l: GOSUB  1030: IF  ky=30  OR  ky=6 
THEN  f kt (menu)=f kt (menu >+l : IP  fkt(menu) 
>menu (menu ,  0>  THEN  fkt (menu >=1 
1090  IF  ky=31  OR  ky=l  THEN  fkt (menu)=f kt 
(menu>-l: IF  fkt(menu><l  THEN  fkt(menu>=m 
enu (menu, 0> 

1100  GOTO  1060 

1110  IF  menu>0  AND  ky=8  THEN  GOSUB  1000: 
GOSUB  310: PRINT  wscr* (2) ; ctl* (9) ; fulscr* 
;  ctl* (14)  :  crsl ln=wy: crspos=wx: GOSUB  300: 
PRINT  STRING* (wb+2, 154): fkt (menu) =0  ' Can 
cel 

1120  GOSUB  210: RETURN 

10000  wf lg=l: ecod=0: FOR  J=0  TO  l:tmp*(J> 
=” "  :  FOR  i  =  l+J  »6  TO  6+J »4 :  tmp* (J >=tmp* (J ) 
+wpuf » (1,1): NEXT : NEXT : LSET  f 1 *=CHR* ( nkey 
(kp) >+attr*: LSET  f2S=tmp* (0) : LSET  f3*=tm 
p*(l): RETURN  'Blatt  ->  Puffer 
10010  ecod=0: GET  #2: nkey (kp>=ASC (LEFTS (f 
1*. l)):attr*=MID»(fl*,2):  tmp* (0>  =  f2*: tmp 
S(l)=f3S:FOR  J=0  TO  l:FOR  1=0  TO  3+(J=0) 
•-2: wpuf* (1 ,  1  +  1+J •6)=MID* (tmp* (J >  ,  1*40+1 
.40):  NEXT:  NEXT: GOTO  920  'Blatt  lesen 
20000  wy=15: wx=12: wb=40: wh=10: frame=2: GO 
SUB  310: GOTO  210  'Größe  Notizblatt  def. 
20010  GOSUB  20000: GOSUB  800: IF  ky<>8  THE 
N  GOSUB  900: IF  nkey(kp><0  THEN  ERROR  254 
: clr=0: GOTO  20010  ' Notizblatt  editieren 
20020  RBTURN 

21000  recn=-l: kp=0:clr=0:  GOSUB  20010: IF 
ky=8  THEN  RETURN  ELSE  FOR  1=0  TO  nkey(0) 

: key* (1 , 1 ) =key* (0,1) : HEXT:  nkey(l)  =  nkey (0 
>  ' notieren 

21010  GOSUB  10000: ecod=ADDREC (#2 , 2 , 0 , key 
S(kp,  0>>: IF  ecod>100  THEN  GOSUB  90  ' Blat 
t  speichern 

21015  IF  ecod>0  OR  nkey(kp)=0  THEN  RETUR 
N  ELSE  1=0: recn=FETCHREC(#2) 

21020  1=1+1 : ecod=ADDKEY (#2 , 0, l,key*(kp, 1 
>,  recn) : GOSUB  90:  IF  ecod=0  AND  l<nkey(kp 
)  GOTO  21020 
21030  RETURN 

21900  ecod=0: rl=rl+sdir :  IF  rl>maxkey  THE 
N  IF  sfirst  THEN  IF  r2<nkey(kp>  THEN  r2= 
r2+l : r 1=0  ELSE  ERROR  253  ELSE  rl=0  ELSE 
IF  rl<0  THEN  rl=maxkey  'für  Suchen  nächs 
ten  Teil Index  bestimmen  bzw.  Abbruch  erz 
eugen 

21910  RETURN 

22000  recn=-l: kp=0: clr=0: GOSUB  20010: IF 
ky=8  THEN  RETURN  ELSE  rl=0: r2=0: sdlr=l: s 
f lrst=l  'Notiz  suchen 

22010  ecod=SEEKKEY (#2, 0, rl , key* (kp,  r2>  > : 
IF  ecod=0  THEN  GOTO  22020  ELSE  IF  ecod=l 
03  OR  ecod=105  THEN  GOSUB  21900: IF  ecod 
THEN  RETURN  ELSE  ELSE  RETURN  'suchen  bis 
ein  Suchbegriff  ln  einem  Teil Index  gefu 
nden 

22015  GOTO  22010 

22020  kp=l:  GOSUB  10010:  kp=0:  IF  nkey(0X= 
nkey (1)  GOTO  22035  'Blatt  lesen 
22025  IF  sdir>0  THEN  ecod=SEEKNEXT (#2. 0> 
ELSE  ecod=SEEKPREV (#2, 0)  'nächsten  in  S 
uchrlchtung  im  gleichen  Telllndex 
22030  rl=FETCHRANK(#2) :  IF  ecod>105  THEN 
ERROR  253: RETURN  ELSE  IF  ecod=0  GOTO  220 
20  ELSE  IF  ecod=102  THEN  ecod=SEEKRANK (# 
2, 0, rl)  ELSE  GOSUB  21900: IF  ecod  THEN  RE 
TURN  'gefunden  ?,  neuer  Teilindex  ? 

22033  GOTO  22010 

22035  FOR  1=0  TO  nkey (0> : ecod=l : FOR  J=0 
TO  nkey ( 1 ) : IF  key* (0, i >=key* (1 , J >  THEN  e 
cod=0  'alle  Suchschlüssel  lm  gefundenen 
Blatt  ? 

22040  NEXT: IF  ecod  THEN  i=nkey(0)+l 
22050  NEXT: IF  ecod  GOTO  22025  ELSE  sflrs 
t=0: crsl in=l: GOSUB  290: frame=3: menu=5:  fk 
t (menu>= (Sdlr<0>*-1+ (sdir>0)*-2: GOSUB  10 
10  'nein!  weltersuchen,  sonst  anzelgen 
22060  GOSUB  1050: IF  fkt(menu>=l  THEN  sdl 
r=-l  ELSE  IF  fkt(menu>=2  THEN  sdir=l  ELS 
E  recn=FETCHREC(#2): RETURN  'nächsten  suc 
hen  oder  Suchen  beenden 

22070  ky=8: GOSUB  1110: GOSUB  20000: GOTO  2 
2025 

23000  GOSUB  20000: GOSUB  510: IF  recn<0  TH 
EN  RETURN  'Notiz  löschen 
23010  rl=-l : kp=l 

23020  rl=rl+l : IF  rl<=nkey(kp>  THEN  ecod= 
DELKEY (#2, 0, rl , key* (kp, rl ) , recn) : IF  ecod 
<105  GOTO  23020  ELSE  GOTO  90 
23030  ecod=0:recn=-l: RBTURN 
24000  IF  recn>=0  THEN  clr=0: GOSUB  20010: 
IF  ky<>8  THEN  GOSUB  23010: kp=0: IF  ecod=0 
THEN  GOSUB  21010  'Notiz  ändern:  alte  lö 
sehen,  Xndernung  als  neues  Blatt  speiche 
rn 

24010  RETURN 

24500  GOSUB  20000: 3=0:  FOR  1  =  1  TO  wh: IF  L 
EN(wpuf  *  (1 ,  1 )  Xwb  THEN  J  =  1  'Notiz  drucke 
n 

24510  NEXT: IF  j=l  OR  recn<0  THBN  RBTURN 
ELSE  IF  prflg  THEN  LPRINT  CHR» (27) : "ml” 


ELSE  LPRINT  CHR* (27) i "raO" 

24520  LPR I NT : LPR I NT" +" ; STR I HG* ( 42 , " )  ;  " 
+" : FOR  1=1  TO  wh: LPRINT"!  " ; LBFT* (wpuf S ( 
1, 1) , wb>  j "  ! " : NEXT : LPRINT"+" ; STRINGS (42 , 
RETURN 

24990  'geöffneten  Notizblock  bearbeiten: 
25000  IF  lnblock=0  THEN  ecod=255 : GOTO  90 
ELSE  menu=l : f kt (menu)  =  l :  f rame=3 :  rets=2: 
ret*=ret*(0>: GOSUB  1010: GOSUB  20000: GOSU 
B  320 

25005  GOSUB  30190: IF  ecod  THEN  ky=8:GOSU 
B  1000: GOSUB  1110: GOTO  25020  ELSE  recn=- 
1 : FOR  j=0  TO-14  FOR  1  =  1  TO  wh: wpuf * (J  ,  1)  = 
""••NEXT:  NEXT 

25010  menu=l : GOSUB  1050: IF  fkt(menu)  THE 
N  ON  fkt (menu)  GOSUB  21000,22000,24000,2 
3000, 24500: GOTO  25010 

25020  GOSUB  20000: GOSUB  310: PRINT  wscr* ( 
2); ctl* (9): RBTURN 
29990  'ABLAGE 

30000  PRINT  ctl* (20) ; CHR* (43): CHR* (40)  ;C 
HR* (52) ; CHR* (109) i ctl* (9) ; : RBTURN  'Wlndo 
ws  für  Ablageinhalt 

30005  wy=14 : wx=8 : wb=80: wh=14 : GOSUB  310: P 
RINT  wscr* (1):  RETURN 

30010  GOSUB  210: ecod=0: GOSUB  30000: PRINT 
”  Inhalt  " j  LEFT* (lf w* , 1 ) ; MID* (STR* (user ) 
,2):":": PRINT: FOR  3=0  TO  1:PRINT  ctl*<16 
>"  Block:  " ; CHR* (149) j "  Bemerkung: 

" ; ctl* (17) i M  " i : NBXT  'Inhalt 

ausgeben 

30015  GOSUB  30005: crslin=0 : ef lg=l : f ound= 
-l:count=0: GOSUB  30090 

30020  FOR  1=1  TO  64 : ecod=0: f lle*=STRIP» ( 
FIND* (lf w*+"*.  NTB" , 1) > : ky*=INKEY*: IF  eco 
d<>0  OR  flle*=""  OR  kYS=CHR»(8)  THEN  1=6 
5: GOTO  30070  'keine  weiteren  Einträge 
30030  3=INSTR(1, fileS,"  ">:IF  3=0  THEN  J 
=INSTR(1, fileS,".”) 

30035  ntbnam*  (0)=LEFT* (fileS, 3-l>+»  .  NTB" 

: ntbnam* ( 1 )=LEFT» (f 1 le», 3-l>+".  NTI" 

30040  GOSUB  30200: IF  ecod=0  THBN  ntbnam* 

(2  >  = ntbnam* (2 ) +SPACB* (20-LBN (ntbnam* (2 ) > 

)  ELSE  ntbnam*  (2)=" >>  FEHLERHAFT  !  «" 

30045  IF  (count  MOD  2>=0  THEN  crspos=l:c 

rslln=crslin+l  ELSE  crspos=40 

30050  IF  crsl ln>wh  THEN  PRINT: PRINT; : ers 

lln=wh 

30055  GOSUB  300: PRINT  LEFT* (f lleS, 8)  ;  CHR 
*(149);”  ntbnam* (2) 

30060  count=count+l : CLOSE  #2 
30070  NEXT: eflg=0: PRINT: PRINT: IF  ecod=0 
AND  kySOCHR*  (8)  THEN  PRINT  count;  ELSE 
PRINT"??"; 

30080  PRINT"  Blöcke  (Block)  vorhanden." 
30090  FOR  3  =  0  TO  2:SVAP  tmp* (2+3 >,  ntbnam 
* (3 ): NEXT: RETURN  ’akt.  Block  speichern/z 
uruck 

30100  ecod=0: found=0: IF  STRIP* (FIND* (ntb 
namS(0) >><>""  THEN  found=-l  'Block  vorha 
nden? 

30110  RETURN 

30130  GOSUB  30100:  IF  ecodOO  THEN  RETURN 
ELSE  IF  NOT  found  THEN  ERROR  53: RETURN 
30140  KILL  ntbnam* (0):  KILL  ntbnam* (1 ):  RE 
TURN 

30160  GOSUB  30100: IF  ecod=0  THEN  IF  NOT 
found  THEN  ERROR  53  ELSE  NAME  ntbnam* (0) 
AS  lfw*+neunam*+"  .  NTB" : IF  ecod=0  THEN  N 
AME  ntbnam* (1)  AS  lf wS+neunam*+”  .  NTI"  'u 
mbe nennen 
30170  RETURN 

30190  GOSUB  30100: IF  ecod  THEN  RETURN  'ö 
ffnen 

30200  ecod=0: CLOSE  #2: IF  found  THEN  OPEN 
" K"  ,  #2,  ntbnam*  (0) ,  ntbnam*  (1)  ,  2,  reden,  n 
tbnamS  (2)  ELSE  CREATE  #2 ,  ntbnam* (0) .  ntbn 
am*  (1)  ,  2,  reden,  ntbnam*  (2) 

30210  IF  ecod  THEN  RETURN  ELSE  FIELD  #2, 
123  AS  fl*, 240  AS  f2S,160  AS  f 3*: RBTURN 
30230  ntbnam* (0>  =  lf wS+ntbtmp* (0)+"  .  NTB" : 
ntbnam* (l)=lfw*+ntbtmp* (0)+" . NTI" : ntbnam 
*(2)=ntbtmp*(l):  RETURN  'temp.  Name  ->  Da 
telname 

30250  frame=2: GOSUB  320: wscr* (3 >=wscr* (2 
>: PRINT  wscr* (0); ctl* (9) ;: FOR  3=0  TO  l:t 
mp* (3 )=wpuf S (3  ,  1):  NEXT:  RETURN  ' Dialogwin 
dow  def . 

30270  FOR  3=0  TO  1 : wpuf * (3 , 1 )=tmp* (j > : NE 
XT: PRINT  wscr* (3) ;  ctl* (9) ; : f rame=3:  GOTO 
1010  'selbiges  löschen 

30300  wy=4+fkt (menu) : wx=16:  wb=28 : wh=2 :  GO 
SUB  30250:  ntbtmp* (0)=MID* (ntbnam* (0)  ,  3)  : 

3  =  INSTR (1, ntbtmp* (0) , “  .  " >  :  ntbtmp* (0)=LEF 
TS(ntbtmp*(0),3+<3<>0>> : ntbtmp* (l)=ntbna 
m*  (2) : PRINT  ctl* ( 10) ; "Block:  ";ntbtmp*(0 
) : PRINT”  Bern.:  "; ntbtmp* (1 >;:' Blockname , 
Erklärung  elng. 

30310  feld=0: wx=23: wh=l : rets=5:  ret*=ret* 
(1) 

30320  wy=4+f kt (menu)+feld: wb=8+feld»12 
30330  GOSUB  310: PRINT  wscr* (1) : wpuf» (0, 1 
>  =STRING* (wb, 0) : wpuf* ( 1 , 1 ) =ntbtmp* (f eld) 
30340  clr=0: GOSUB  800:  ntbtmp* (feld)=wpuf 
* (1 , 1 > : IF  ky=8  OR  ky=27  THEN  GOTO  30270 
30350  IF  ky=31  AND  feld  THEN  feld=0  ELSE 
IF  feld=0  THEN  feld=l 
30360  GOTO  30320 

31000  GOSUB  30300: IF  ky=8  THEN  RETURN  'z 
um  bearbeiten  öffnen 

31010  wf lg=l : GOSUB  30230:GOSUB  30190: IF 
ecod  THEN  RETURN  ELSE  inblock=-l : RETURN 


$3000  wy=4  +  fkt (menu) :  wx=16 : wb=14 : wh=2:  GO 
SUB  30250: PRINT  ctl* (10) ; "alt: " : PRINT"ne 
u:";  'Block  umbenennen 

33010  f eld=0 : wx=21: wh=l: wb=8: rets=5:  ret* 
=ret* (1) :  ntbtmp* (0)=""  :  ntbtmp* (1)="" 
33020  wy=4+fkt (menu)+feld: GOSUB  310:PRIN 
T  wscr* (1) : wpufS(0, 1)=STRING* (wb, 0)  :  wpuf 
*<1, l)=ntbtmp* (feld) 

33030  clr=0: GOSUB  800: ntbtmp* (feld)=wpuf 
*(1,1): IF  ky=27  GOTO  33060  ELSE  IF  ky=8 
GOTO  33070 

33040  IF  ky=31  AND  feld  THEN  feld=0  ELSE 
IF  feld=0  THEN  feld=l 
33050  GOTO  33020 

33060  wflg=l: GOSUB  30090: GOSUB  30230; neu 
nam*=ntbnaro* (2) : GOSUB  30160: GOSUB  30090 
33070  GOTO  30270 

34000  ntbtmp*  (0)="'' :  ntbtmp*  (1)=""  :  GOSUB 
30300: IF  ky=8  THEN  RETURN  'löschen 
34010  wf 1 g= 1 : GOSUB  30090:GOSUB  30230:GOS 
UB  30130: GOTO  30090 
34990  'ABLAGE- MENU 

35000  menu=2 : fkt (menu )=l:frame=3: GOSUB  1 
010 

35010  GOSUB  30010 

35020  GOSUB  1050: IF  fkt(menu)  THBN  ON  fk 
t (menu)  GOSUB  31000, 33000, 34000: IF  ky=8 
OR  (fkt  (menu)=l  AND  foundOO)  OR  ecodOO 
GOTO  35020  ELSE  GOTO  35010 
35030  GOSUB  30000: PRINT  fulscr* 

35040  RETURN 

45000  RETURN  'Optionen 

49000  menu=4:  fkt (menu)  =  1:  frame=3: GOSUB  1 
010  'Programm  beenden  ? 

49010  GOSUB  1050: IF  fkt(menu)  THBN  CLOSE 
#2: RESET: PRINT  fulscr»; ctl* (9) ; ctl* (22) 

: GOSUB  210: exlt=-l 
49020  RETURN 

50000  RBSTORE  50040:DIM  wpuf*(l,10>  • Inl 
tlalislerung 

50005  'Editor-,  Bildschirmcodes: 

50010  READ  ctlkys, ctlout , ctl : FOR  1=1  TO 
ctlkys: READ  ch: ctlky»=ctlky*+CHR» (ch> : NE 
XT 

50020  ctl=ctlout+ctl : DUC  ctl* (ctl) : FOR  1 
=1  TO  ctl : READ  J : FOR  1=1  TO  J : READ  ch:ct 
1»  <1 )=ctl*  <1 >  +CHR* (ch) : NEXT: NBXT 
50030  f u lscr*=ct 1* (20 ) +CHR» (32 ) +CHR* (32 ) 
+CHR* (63  >  +CHR* (121): x=FRE ("" > 

50040  DATA  23,13,14:’  ctlkys,  ctlout,  ct 
1 

50050  DATA  13,31,30,1,6,127.24,11,29,2,1 
6, 168, 182,22,22,28,28,7,26,21.23, 18,9 
50060  DATA  3,13,27,66.2.27,65,2,27,66,2, 
27,68,2,27,67,3,8,32,8,2,27, 111,2,27,75, 
4,27,69,27,72,2,27,72,3,27, 108, 13,2,27,7 
4,4,27,100,27,72,2,27,112,2,27,113,2,27, 
114,2,27, 117 

50070  DATA  2,27,49,2,27,48,2,27,88,2,27, 
89,2,27,101,2,27,102,2,27, 106, 2,27,107,1 
, 13, 1,7 

50100  frans» (0>=SPACE* (6) : franst (1)=CHR* 
( 150) +CHR» ( 156) +CHR* ( 147  > +CHR* (153) +CHR» 
(154  >+CHR» (149) : frame* (2>=CHR* (134) +CHR* 
(140)+CHR* (131) +CHR* (137) +CHR* (138) +CHR* 
( 133 > :  frame* (3) =CHR» ( 158 >  +CHR* ( 158 >  +RIGH 
T* (f rame* (1) , 4)  'Rahmen  für  Windows 
50105  'Menu-Daten: 

50110  READ  n: FOR  1=0  TO  n-l:FOR  J=0  TO  4 
;  READ  menu (1 , J ) :  NEXT :  FOR  J=0  TO  menu(l,0 
) - 1 : READ  menu*(i,J): NEXT: HEXT 
50120  DATA  6 

50130  DATA  4,1,1,14,0,"  bearbeiten 

Ablage  Optionen  E 

nde  '• 

50140  DATA  5,3,3,10,1."  notieren  su 

chen  ändern  löschen  druc 

ken  " 


50150  DATA 
umbenennen 
50160  DATA 
nutzer 
50170  DATA 
50180  DATA 


3.3.16.12.1, "  öffnen 

•' , "  löschen  •' 

4.3.31.10.1, "  Laufwerk  Be 

Drucker  " , "  Beep  " 

1.3.44.12.1, "  bestätigen  " 

2. 9. 4. 8.1, "  zurück  ","  weiter 


50250  ret* (0 >=CHR» (8) +CHR* (27) : ret* (1 )=C 
HR* (30  >  +CHR* (31 ) +CHR* (13  >  +CHR* (27 ) +CHR* ( 
8) 

50300  lfw*=" A: " : user=0: wf lg=l  'Laufwerk, 
User  einstellen 

50310  reclen=525: maxkey=7 : beepf lg=l 
50700  PRINT  fulscr* ; ctl* (9) ;: GOSUB  210: c 
rsl ln= 1 : crspos=64 : GOSUB  300: PRINT" JOYCE 
Notizblock  1.0" 

50710  crsl 1 n=2 : crspos=74: GOSUB  300: PRINT 
CHR* (164);  "1985" 

50720  crsl in=3: crspos=61 : GOSUB  300:PRINT 
"Schneider  CPC  International  ";CHRS(191> 
50800  frame=l: GOSUB  1010: chatr=0: GOSUB  1 
030 

50900  RETURN 

59999  ’Hauptpgm: 

60000  exit  =  0: raenu=0: fkt (menu)=2:  f lrst=-l 
60010  GOSUB  50000 

60020  VHILE  NOT  exit: IF  wflg  THEN  CLOSE 
#2: RESET  lfwS:wflg=0 

60030  IF  NOT  first  THEN  GOSUB  1050  ELSE 
f lrst=0 

60040  ON  fkt (menu)  GOSUB  25000,35000,450 
00,49000 

60050  menu=0:  WEND 
60060  RESET: END 


I 


I 


. 
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Logokurs 
Teil  6 


Wie  wir  in  unserem  letzten  Kurs  bereits 
angekündigt  hatten,  befassen  wir  uns 
diesmal  mit  der  Programmierung  eines 
Telefonregisters.  Dazu  muß  man  sagen, 
daß  viele  die  Sprache  LOGO  nicht  ganz 
ernst  nehmen,  da  sie  ja  eigentlich  für  Kin¬ 
der  entwickelt  wurde.  Daß  sich  LOGO 
mit  seiner  Listenverarbeitung  jedoch 
ganz  hervorragend  zur  Programmierung 
von  Anwendungen  eignet  -  wenn  man  von 
seiner  Geschwindigkeit  absieht  -  wollen 
wir  nun  beweisen. 

Start  der  Programmierung: 

Da  bei  LOGO  die  Programmierung, 
ähnlich  wie  in  FORTH,  modulweise  er¬ 
folgt,  kann  auf  dem  Bildschirm  pro¬ 
grammiert  werden.  Zuvor  sollte  man 
sich  jedoch  überlegen,  wie  man  Vor¬ 
gehen  kann.  Dazu  sollte  ein  ein  Ablauf¬ 
plan  erstellt  werden. 

Ein  erfahrener  Programmierer  braucht 
bei  LOGO  keine  solche  Schreibarbeit 
zu  leisten,  denn  LOGO  ist  wirklich  so 
einfach  zu  verstehen,  daß  es  einem 
schnell  gelingt,  den  Computer  dazu  zu¬ 
bringen,  das  zu  tun,  was  man  will.  Wir 
fangen  also  einfach  an.  Zuerst  muß  eine 
wichtige  Frage  geklärt  werden: 

Wie  soll  das  Programm  ablaufen? 

L  Der  Bildschirm  soll  gelöscht  werden. 

2.  Ein  Menue  soll  erscheinen,  mit  der 
Abfrage  nach  weiterem  Vorgehen. 

3.  Erinnerung  an  Datensicherung  aus¬ 
geben. 

4.  Abfragebeendigung  ja-end  /  nein- 
Rücksprung  zu  2. 

Wir  versuchen,  dies  nun  zu  program¬ 
mieren: 

?to  telefonregister 
>  local  ”test 
>make  "liste  |] 

>ts  ct” 

>label  ”haupt 
>menu” 

>ct  pr  [Daten  gesichert  (J/N)  ?[ 

>label  "schleife 

>if  keyp  [make  "test  rc][go  "schleife] 
>if  or  (:test  =  ”N)  (:test  =  ”n)  [go 

"haupt] 

>if  not  or  (:test  =  ”J)  (:test  =  ”j)  [go 
"schleife] 

>end 

Das  war  die  Startprozedur.  Wir  nennen 
sie  "Telefonregister"  und  definieren  sie 
mit  dem  Wort  "to”.  Zuerst  teilen  wir 
LOGO  mit,  daß  die  Variable  "test”  nur 
local  (d.h.:  nur  für  diese  Prozedur  bzw. 
nur  für  von  ihr  aufgerufenen  Prozedu¬ 
ren  zugänglich  ist)  vorhanden  ist.  Dies 
spart  natürlich  Speicherplatz.  Anschlie¬ 
ßend  wird  eine  Variable  mit  dem  Na¬ 
men  "Liste”  definiert.  Diese  Variable 
soll  später  dann  die  einzelnen  Einträge 


enthalten.  Dazu  schalten  wir  zuerst  auf 
den  vollen  Textbildschirm  um;  anschlie¬ 
ßend  wird  er  gelöscht.  Daraufhin  defi¬ 
niert  man  einen  Label  mit  dem  Namen 
"haupt".  Dieses  Label  dient  als  Ein¬ 
sprung,  falls  die  eingegebenen  Daten 
nach  Verlassen  der  Prozedur  "rnenu" 
noch  nicht  abgesichert  wurden.  Jetzt 
wird  die  Prozedur  "menu”  aufgerufen. 

Dies  dürfte  wohl  das  Hauptprogramm 
werden;  doch  dazu  später.  Jetzt  erfolgt 
die  Abfrage,  ob  die  Daten  auch  ge¬ 
sichert  wurden.  Beantwortet  man  diese 
Frage  mit  "ja”,  so  wird  das  Programm 
verlassen.  Andernfalls  wird,  wie  vorhin 
schon  erwähnt,  zum  Label  "haupt"  zu¬ 
rückgesprungen  und  dadurch  ein  Da¬ 
tenverlust  verhindert. 

Das  Unterprogramm  "menu” 

Sinn  und  Zweck  dieser  Prozedur  ist  es, 
dem  Anwender  ein  Menue  zu  präsen¬ 
tieren,  von  dem  die  ganze  Steuerung 
übernommen  wird. 

?to  menu 
>local  "test 
> recycle 
>ct 

>pr  [Telefonregister] 

>pr(fput  char  164  [by  Data-Media- 
GmbH  Bereich  Verlag] 

>repeat  5[pr  []] 

>pr  [1  -  Daten  eingeben] 

>pr  [2  -  Daten  sortieren] 

>pr  [3  -  Telefonnummer  suchen] 

>pr  [4  -  Telefonliste  drucken] 

>pr  [5  -  Daten  laden] 

>pr  [6  -  Daten  speichern] 

>pr  [7  -  Programm  beenden] 

>Pr  [] 

>  pr  [Gehen  Sie  die  entsprechende  Num¬ 
mer  ein!] 

>label  "schleife 

>if  keyp  [make  "test  rc][go  "schleife] 
>if  (:test  =  ”l)[eingeben  menu] 

>if  (:test  =  ”2)[sortier  menu] 


>if  (:test  =  ”3)[suchen  menu] 

>if  (:test  =  ”4)[listen  menu] 

>if  (:test  =  ”5)[laden  menu] 

>if  (rtest  =  ”6)[speichern  menu| 

>if  not  (:test  =  "7)[go  ”schleife| 

>end 

Nachdem  diese  beiden  Teile  eingege¬ 
ben  wurden,  kann  das  Programm 
schon  einmal  gestartet  werden.  Dies  ge¬ 
schieht  mit  der  Eingabe  des  Wortes  "Te¬ 
lefonregister”  Wenn  Ihr  Menue  er¬ 
scheint,  können  Sie  die  verschiedenen 
Prozeduren  anwählen,  jedoch  gibt  es 
immer  eine  Fehlermeldung,  da  diese 
Prozeduren  noch  nicht  definiert  wur¬ 
den.  Ohne  eine  Fehlermeldung  zu  be¬ 
kommen,  können  Sie  jedoch  eine  ”7" 
für  Programmende  eingeben.  Hierauf 
werden  Sie  gefragt,  ob  die  Daten  schon 
gesichert  sind.  Antworten  Sie  mit  "ja", 
so  wird  das  Programm  verlassen;  an¬ 
dernfalls  kehren  Sic  wieder  ins  Haupt- 
menue  zurück. 

Doch  nun  zur  Erklärung  der  Prozedur 
"menu”. 

Zuerst  wird  mit  Hilfe  des  Kommandos 
"local”  die  Variable  "test"  definiert.  An¬ 
schließend  erfolgt  ein  "recycle".  Dies  ist 
in  Basic  mit  einer  Garbage  Collection 
zu  vergleichen.  Es  stellt  also  so  viel 
Speicherplatz  (in  LOGO  nennt  man 
das  Knoten)  wie  möglich  zur  Verfü¬ 
gung.  Jetzt  erfolgt  die  Löschung  und  der 
Aufbau  des  Bildschirms.  Beachten  Sie 
dabei,  wie  ein  einzelner  Charakter  und 
eine  Liste  zu  einer  neuen  zusammenge¬ 
fügt  werden  können.  Nachdem  der 
Bildschirm  aufgebaut  ist,  erfolgt  eine 
neue  Labeidefinition  mit  dem  Namen 
"Schleife”.  Diese  dient  dazu,  um  bei  der 
Tastaturabfrage,  bei  einer  Falschein¬ 
gabe,  ein  neues  Zeichen  einzulesen.  Mit 
dem  Befehlswort  "keyp"  wird  zunächst 
erfragt,  ob  überhaupt  eine  Taste  ge¬ 
drückt  wurde.  Sollte  dies  nicht  der  Fall 
sein,  so  wird  unmittelbar  zum  Label 
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"Schleife"  zuriickgesprungen.  Wird 
aber  eine  Taste  betätigt,  werden  weitere 
Zeilen  abgearbeitet.  Hier  erfolgt  nun 
die  Abfrage,  ob  eine  der  Tasten  ”1"  bis 
"7”  gedrückt  wurde.  Sollte  dies  nicht  der 
Fall  sein,  wird  ebenfalls  zum  Label 
"Schleife"  zurückgesprungen.  Andern¬ 
falls  wird  die  entsprechende  Prozedur 
aufgerufen. 


Als  nächstes  beschäftigen  wir  uns  mit 
der  Prozedur  "Eingabe”,  so  daß  wir  be¬ 
ginnen  können,  mit  dem  Programm 
zu  arbeiten. 

?to  eingeben 
>(local  ”name  ”tele) 

>ct  pr  [Telefonregister  -  Eingabe] 
>repeat  4  [pr  [J] 

>pr  [Geben  Sie  den  Namen  ein! | 

>  make  ”name  rl 

>pr  [Geben  Sie  die  Telefonnummer 
ein!] 

>make  ”tele  rl 

>make  ”liste  (fput  (se  :name  :tele) 
:liste) 

>end 

Wie  Sie  selbst  sehen  können,  ist  die  Ein¬ 
gabe  recht  leicht  zu  verstehen.  Zuerst 
werden,  wie  in  den  vergangenen  Prozedu¬ 
ren,  die  unwichtigen  Variablen  local  de¬ 
finiert.  In  diesem  Fall  sind  es  die  Varia¬ 
blen  "tele"  und  ”name”.  In  die  Varia¬ 
blen  "Name”  und  "Tele”  werden  mit 
Hilfe  des  Kommandos  rl  (read  list)  die 
Werte  eingelesen.  Anschließend  wer¬ 
den  diese  Elemente  zu  einer  Liste  zu¬ 
sammengefaßt  und  der  schon  bestehen¬ 
den  Liste  vorangestellt. 

Natürlich  fehlt  als  sehr  wichtiger  Be¬ 
standteil  noch  die  Abspeicherung. 
Doch  dies  wollen  wir  hiermit  schnell¬ 
stens  nachholen: 

?to  speichern 
>ct 

>pr  [Telefonregister  -  Speichern] 


>repeat  5  [pr  []] 

>pr  [Geben  Sie  bitte  den  Filenamen 
an!] 

>ern  [tele  name  test] 

>save  rq 
>end 

Als  erstes  löschen  wir  den  Bildschirm 
und  die  Überschrift  "Telefon register  - 
Speichern"  wird  ausgegeben.  Anschlie¬ 
ßend  werden  fünf  Leerzeilen  ausgege¬ 
ben,  um  eine  entsprechende  Übersicht 
in  den  Bildschirmaufbau  zu  bekom¬ 
men.  Der  folgende  Befehl  löscht  die 
noch  local  vorhandenen  Variablen 
"tele",  "name”  und  ”test”  aus  dem 
Speicherbereich.  Jetzt  benötigt  man  ei¬ 
nen  Filenamen,  mit  dem  der  Speicher¬ 
inhalt  auf  Diskette  abgelegt  werden 
kann.  Auch  hier  macht  uns  Dr.  LOGO 
die  Sache  einfach.  Die  Einlesung  mit 
Hilfe  von  rl  wird  sofort  dazu  benutzt, 
abzuspeichern.  Das  können  Sie  leicht 
erkennen,  wenn  Sie  das  Programm 
starten  und  die  Prozedur  "Speichern” 
aufrufen.  Die  Floppy  beginnt  sich  näm¬ 
lich  schon  vor  der  Namensabfrage  zu 
drehen.  Durch  das  Wörtchen  "end” 
wird  dann  das  Ende  der  Prozedur  ge¬ 
kennzeichnet  und  es  erfolgt  ein  Rück¬ 
sprung  zur  Prozedur  ”menu”. 

Im  nächsten  Teil  unseres  Kurses  wer¬ 
den  wir  das  Programm  ’Telefonregi- 
ster”  noch  fertigstellen,  um  uns  an¬ 
schließend  etwas  mehr  mit  den  grafi¬ 
schen  und  musikalischen  Fähigkeiten 
von  Dr.  LOGO  zu  beschäftigen. 

(HF) 
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nen,  die  RS  232  frei  anzusprechen  und 
somit  eigene  Übertragungsprogramme 
oder  eine  eigene  Mailbox  zu  schrei¬ 
ben. 

Das  Programm  ist  durch  Programmie¬ 
rung  in  Maschinensprache  sehr  schnell 
und  sicher.  Ein  wirklich  fantastisches 
Handbuch  hilft  auch  dem  DFÜ- 
Neuling,  in  kürzester  Zeit  mit  der 
Materie  vertraut  zu  werden  und 
Kontakte  zu  anderen  Rechnern  zu 
knüpfen.  (TM) 


Hersteller:  Gerdes 
Vertrieb:  Gerdes 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  100,-  DM 

CPC  464  R  CPC  664  B  CPC  6128  B 

DFÜ-Pakete  mit  sogenannter  Pseudo 
RS  232,  die  Leitungen  des  Druckers 
oder  Joystickports  belegen  und  eine 
Emulation  im  Programm  vornehmen, 
haben  wir  schon  öfter  vorgestellt. 
Nachteilig  war  bei  diesen  Programmen 
immer,  daß  die  Schnittstelle  wirklich 
nur  von  dem  Terminalprogramm  ge¬ 
nutzt  werden  konnte,  da  eine  Program¬ 
mierung  sehr  schwierig  war. 

Nun  hat  die  Firma  Gerdes  jedoch  ein 
DFÜ-Paket  herausgegeben,  welches 
neben  hervorragenden  Leistungsdaten 
auch  noch  die  Möglichkeit  zur  Nut¬ 
zung  der  RS  232  unter  Basic  erlaubt. 
Zum  Lieferumfang  des  Pakets  gehören 
der  Adapter,  die  Terminalsoftware  so¬ 
wie  ein  Programm,  das  eine  Basicer- 
weiterung  mit  neuen  Befehlen  für  die 
Schnittstelle  bereithält. 

Bemerkenswert,  wie  das  Hardwarepro¬ 
blem  gelöst  wurde:  Eine  kleine  Platine, 
die  einfach  in  den  Druckerport  gesetzt 
wird  und  dann  über  einen  einfachen 
Wechselschalter  wahlweise  die  Benut¬ 
zung  des  Druckers  oder  der  Schnitt¬ 
stelle  ermöglicht. 

Sicherlich  ist  diese  Lösung  noch  nicht 
der  Weisheit  letzter  Schluß,  aber  es  ist 
zumindest  für  die  Hardware  und  die 
Nerven  des  Users  wesentlich  verträg¬ 
licher,  einfach  nur  einen  Schalter  um¬ 
zulegen,  als  jedesmal  ein  Kabel 
»umzustöpseln«. 

Das  Terminalprogramm  hat  eine  vor¬ 
bildliche  Menueführung  in  Mouse- 
technik,  eine  eingebaute  Textverar¬ 
beitung,  einen  deutschen  Zeichensatz, 
freie  Bufferbegrenzung,  Stenotasten,  ei¬ 
nen  Textspeicher  von  20000  Zeichen 
und  einen  Fullscreeneditor. 

Weiterhin  gibt  es  noch  die  Möglich¬ 
keit,  einen  alternativen  Zeichensatz  an¬ 
zuwählen  sowie  ein  Dienstprogramm- 
Menue,  mit  dem  Files  auf  Diskette 
komfortabel  gelöscht  oder  umbenannt 
werden  können. 

Alle  Parameter  wie  Baudrate,  Parity 
und  Duplexbestimmung  lassen  sich 
durchführen.  Außerdem  besteht  noch 
die  Möglichkeit,  einen  Text  als  Hex¬ 
oder  ASCII-Datei  zu  senden. 

So  lassen  sich  auch  Programme  über¬ 
tragen. 

Die  Basicerweiterung  ermöglicht  es  Ih¬ 
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Pro  Text 

Hersteller:  Interstate 
Vertrieb:  Cordes 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  99,-  DM 

CPC  464  81  CPC  664  K  CPC  6128  B 

Pro  Text  ist  eines  der  ersten  Pro¬ 
gramme,  welches  von  den  Banking- 
Eigenschaften  des  6128  Gebrauch 
macht  und  den  vollen  Rechnerspeicher 
benutzt.  Aber  nicht  nur  mit  dem  Flagg¬ 
schiff  der  CPC-Reihe  ist  Pro  Text  lei¬ 
stungsfähig,  auch  auf  den  kleinen  Brü¬ 
dern  des  6128  bietet  Pro  Text  alles,  was 
man  von  einer  wirklich  guten  Textver¬ 
arbeitung  erwarten  kann.  Alle  Funktio¬ 
nen,  wie  Blocksatz,  Search/Replace, 
Mailmerge  etc,  findet  man  sonst  nur  auf 
Programmen,  die  unter  CP/M  laufen 
und  dementsprechend  stolze  Preise 
haben. 

Dabei  bringt  die  aufwendige  Program¬ 
mierung  noch  einen  entscheidenden 
Geschwindigkeitsvorteil.  Pro  Text  schafft 
hierbei  wirklich  einiges.  Es  versteht  sich 
von  selbst,  daß  deutsche  Tastatur  und 
Zeichensatz  integriert  sind. 

Auch  von  der  Bedienung  her  gibt  es  hier 
für  Anfänger  keine  Probleme.  Ein  recht 
gutes  Handbuch  und  eine  komfortable 
Menueführung  lassen  so  gut  wie  keine 
Fehlbedienungen  zu. 

Je  nach  Ausführung  reicht  der  Text¬ 
speicher  von  »ausreichend«  bis  »gigan¬ 
tisch«. 

Um  das  Programm  so  universell  wie 
möglich  zu  machen,  ist  eine  Schnitt¬ 
stelle  zu  weiteren  Interstateprogram- 
men  wie  Pro  Dat,  Pro  Kalk  und  Pro 
Grafik  vorhanden,  so  daß  hier  eine  Da- 
tenübemahme  vorgenommen  werden 
kann. 

Für  DM  99,-  erhält  der  Anwender  ein 
Programm,  das  nahe  an  die  Grenzen 
des  Möglichen  heranreicht  und  profes¬ 
sionellen  Ansprüchen  durchaus  ge¬ 
recht  wird.  (TM) 
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Star  Wrlter  I 

Hersteller:  Star  Division 
Vertrieb:  Star  Division 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code/CP/M 
Preis:  198,-  DM 

CPC  464  0  CPC  664  0  CPC  61280 

Viele  haben  sich  bestimmt  darüber  ge¬ 
ärgert,  daß  für  den  neuesten  Schneider 
Rechner  nun  zwar  endlich  einmal  eine 
spitzenmäßige  Textverarbeitung  vor¬ 
handen  ist,  diese  sich  jedoch  nicht  auf 
den  CPC  Computern  fahren  läßt. 

Daß  dieser  Ärger  nur  von  kurzer  Dauer 
sein  soll,  dafür  sorgt  die  Firma  Star  Di¬ 
vision  mit  ihrem  neuesten  Produkt, 
dem  Star  Writer  I. 

Tatsächlich  wurde  hier  ein  Programm 
entwickelt,  das  so  klangvollen  Namen 
wie  WORDSTAR  und  LOGOSCRIPT 
in  fast  nichts  nachsteht.  Hier  sind  Lei¬ 
stungsdaten  und  Bedienungsfreund¬ 
lichkeit  zu  einer  brisanten  Mischung 
zusammengefaßt,  die  in  unserer  Re¬ 
daktion  wahre  Begeisterungsstürme 
hervorriefen. 

Star  Writer  ist  jedoch  nicht  nur  eine 
Textverarbeitung,  sondern  gleichzeitig 
auch  noch  Adressverwaltung,  Zeichen¬ 
generator,  Grafikprogramm  und  DFÜ- 
Terminal  in  einem. 

Dabei  sind  alle  Programme  dieses 
Pakets  untereinander  kompatibel.  Die 
Textverarbeitung  kann  geänderte 
Zeichensätze,  Grafiken  und  Adressen 
übernehmen,  das  Terminalprogramm 
kann  Texte  und  Adressen  verwenden. 
Hinzu  kommt  eine  einzigartige  Bedie¬ 
nungsfreundlichkeit  mit  PULL  DOWN 
MENUES,  die  an  einen  520  ST  oder 
Macintosh  erinnert. 

Der  Anwender  hat  hier,  außer  den 
Texten  und  ab  und  zu  mal  einen  Filena¬ 
men,  keine  Eingaben  zu  machen.  Alle 
Menues  werden  über  Funktionstasten 
und  Cursorsteuerung  angewählt. 

Dabei  bleibt  ein  geschriebener  Text 
ständig  sichtbar. 

Aber  nicht  nur  die  einwandfreie  Auf¬ 
machung  des  Ganzen,  auch  die  Kapa¬ 
zitätsmerkmale  können  einem  ganz 
schön  den  Atem  nehmen. 

So  hat  die  Adressverwaltung  eine  Lei¬ 
stung  von  2000  Datensätzen,  die  An¬ 
rede,  Vorname,  Nachname,  Anschrift 
und  Telefonnummer  enthalten  können. 
Diese  Adressen  können  mittels  Mail¬ 
merge  in  die  Textverarbeitung  über¬ 
nommen  werden  oder  als  reine  Adress¬ 
verwaltung  nach  Indexen  gesucht, 
sortiert  und  gedruckt  werden.  Auch  das 
Drucken  kann  als  Liste  oder  in  ver- 
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schiedenen  Etikettenformaten  gehand- 
habt  werden. 

Mit  2000  Adressen  sollte  man  eigentlich 
meinen,  alle  professionellen  Ansprü¬ 
che  zu  befriedigen. 

Das  Terminalprogramm  erlaubt  UP- 
LOAD,  DOWNLOAD,  Druck  und 
Speicheroptionen  sowie  eine  vollstän¬ 
dige  Änderung  der  Parameter  durch 
einfaches  Anwählen  mit  den  Cursor¬ 
tasten. 

Interessant  ist  bei  einem  DFÜ- 
Programm  immer,  zu  erfahren,  mit 
welcher  Schnittstelle  es  arbeitet.  In  der 
ersten  Version  von  Star  Writer  ist  dies 
die  Schneider  Schnittstelle.  Anfang  86 
wird  jedoch  auch  noch  eine  Anpassung 
•  an  alle  auf  dem  Markt  befindlichen 
Schnittstellen  staufinden. 

Auch  das  Grafikprogramm  steht  seinen 
Mann.  Optionen  wie  Line,  Circle,  Fill, 
Rays,  Box,  Text  und  Draw  arbeiten  mit 
einer  unglaublichen  Geschwindigkeit. 
Erstellte  Grafiken  können  als  Briefkopf 
oder  Demografik  in  den  bestehenden 
Text  eingebunden  werden.  Damit  die 
Grafiken  auch  ausgedruckt  werden 
können,  ist  eine  Vorgabe  von  15 
Druckeransteuerungen  sowie  ein  sehr 
einfach  zu  bedienendes  Anpassungs¬ 
programm  für  völlig  exotische  Druk- 
kertypen  vorhanden.  Diese  Druckeran¬ 
passung  wird,  wie  die  Bildschirmfarben, 
nur  ein  einziges  Mal  vom  Anwender  fest¬ 
gelegt  und  dann  als  Profile  auf  der 
Diskette  abgelegt.  Beim  erneuten  La¬ 
den  von  Star  Writer  steht  die  Anpas¬ 
sung  sofort  zur  Verfügung. 

Für  Matrix-Druckerbesitzer  ist  der 
Zeichengenerator  noch  von  Interesse, 
obwohl  es  zuerst  nicht  so  recht  klar  wer¬ 
den  will,  was  so  ein  Utility  in  einer  Text¬ 
verarbeitung  zu  suchen  hat.  Erstellte 
Zeichensätze  können  nämlich  bei  Star 
Writer  verwandt  werden  und  auch  über 
Drucker  ausgegeben  werden.  Sie  kön¬ 
nen  sich  also  Ihre  eigene  Schrift  entwer¬ 
fen  und  auch  mit  dieser  arbeiten.  Fran¬ 
zösisch,  Russisch  oder  Schreibschrift 
sind  kein  Problem  mehr. 

Wichtigster  Punkt  ist  jedoch  die 
Textverarbeitung. 

Hier  wurde  sich  endlich  einmal  an  die 
Kritik  der  Textverarbeitungen  in  un¬ 
serem  Heft  gehalten.  Dieses  Programm 
kann  tatsächlich  alles  was  Wordstar 
auch  kann  und  einiges  sogar  noch 
besser. 

Suchen,  Ersetzen  kann  hier  mit  einem 
einzigen  Tastendruck  selektiert  werden 
und  bedarf  keines  umständlichen  Blät¬ 
terns  in  Hilfsmenues  mehr.  Textblöcke 
lassen  sich  nicht  nur  verschieben,  um¬ 
kopieren,  speichern  und  laden,  sondern 
auch  noch  auf  Funktionstasten  legen, 
wo  von  sie  jederzeit  abrufbar  sind. 
Hervorhebungen  sind,  wie  alle  anderen 
Optionen,  über  Menue  anwählbar  und 
werden  in  Klarschrift  im  Text  ange¬ 
zeigt.  Das  bisherige  Raten,  welches 
Sonderzeichen  denn  nun  was  bewirkt, 
entfällt  hier. 

Seitennumerierung,  Trennlineale,  va¬ 
riable  Spaltenbreite,  Tabulatoren  und 
Blocksatz  verstehen  sich  von  selbst. 

Mit  der  Option  Layout  kann  der  Text 
blockweise  in  verschiedenen  Schrift- 
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arten,  Breiten  und  Druckmodis  festge¬ 
legt  werden. 

Übrigens  lassen  sich  auch  Basicpro- 
gramme  mit  dieser  Textverarbeitung 
schreiben.  Überhaupt  zeigt  sich  Star 
Writer  bei  der  Handhabung  der  Da¬ 
teien  sehr  gesellig.  Kein  streng  gehei¬ 
mes  Speicherformat  wurde  verwandt, 
sondern  das  ganz  normale  Wordstar- 
Format,  weil  es  sich  schon  tausendfach 
bewährt  hat.  Natürlich  lassen  sich  da¬ 
durch  auch  Texte,  die  mit  Wordstar  er¬ 
stellt  wurden,  bearbeiten. 

Fünf  Schriftarten  (Future,  Bold,  Kursiv, 
Script  und  Light)  stehen  auf  Anhieb  für 
den  Drucker  zur  Verfügung  und  auch 
ein  komfortables  Diskettenmenue  zum 
Löschen,  Kopieren  und  Umbenennen 
von  Files  ist  vorhanden. 

Interessant  ist  auch  noch  die  Menge  an 
Text,  die  überhaupt  zu  verarbeiten  ist, 
denn  was  nützt  mir  ein  super  komforta¬ 
bles  Textprogramm,  in  das  ich  nur  eine 
Seite  eintippen  kann.  Nun,  egal  ob  sie 
eine  lateinische  Übersetzung  des 
großen  Brockhaus  planen  oder  nur  ei¬ 
nen  Brief  schreiben  wollen,  Star  Writer 
hört  erst  dann  auf  Texte  zu  erfassen, 
wenn  Ihnen  die  Disketten  ausgehen. 
Dabei  befinden  sich  bis  zu  20000 
Zeichen  permanent  im  Speicher.  Die 
wirkliche  Länge  eines  Textes  kann  sich 
jedoch  über  mehrere  Disketten  er¬ 
strecken,  ohne  daß  Sie  ständig  neue  Da¬ 
teien  anlegen  müssen. 

Über  das  Handbuch  läßt  sich  noch 
nicht  viel  sagen,  da  es  beim  Test  noch 
nicht  ganz  fertiggestellt  war.  Aber  die 
Handhabung  des  Programms  ist  so  kin¬ 
derleicht,  daß  wir  es  nicht  ein  einziges 
Mal  vermißt  haben. 

Star  Writer  ist  mit  Abstand  das  derzeit 
leistungsfähigste  Textsystem  für  die 
CPC-Rechner  und  setzt  völlig  neue 
Maßstäbe  bei  der  Bewertung  anderer 
Programme.  Bedienungskomfort  und 
Leistungsfähigkeit  kombinieren  hier 
auf  ideale  Weise  die  Vorzüge  von 
Hobby-Programmen  und  professionel¬ 
len  Systemen.  (TM) 


EMS 

Hersteller:  Rainbow  Arts 
Vertrieb:  Ariolasoft 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  Basic/M-Code 
Preis:  99,-  DM 

CPC  464  B  CPC  664  H  CPC  6128  B 

EMS  heißt  im  Klartext:  erweitertes 
Multidatei-System  und  verdient  die  Be¬ 
zeichnung  »Multi«  zu  Recht. 

Rainbow  Arts  bietet  seit  geraumer  Zeit 
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Anwenderprogramme  für  den  CPC  an. 
Bei  der  Konzeption  der  Anwendungen 
wurde  peinlichst  genau  darauf  geachtet, 
daß  die  Programme  in  jeder  Konfigura¬ 
tion  miteinander  kombinierbar  sind. 

Dabei  haben  alle  Programme  grund¬ 
sätzlich  einen  ähnlichen  Aufbau,  des¬ 
sen  besondere  Merkmale  jedesmal 
gleich  sind.  So  lädt  zum  Beispiel  kein 
Programm  der  Multisoft-Reihe  andere 
Programmteile  nach,  was  unnötige 
Wartezeiten  erspart  und  auch  die  Gar- 
bage  Collection,  die  eine  Datenauf¬ 
nahme  im  großen  Maße  verzögern 
kann,  wurde  durch  geschickte  Pro¬ 
grammierung  verhindert. 

Besonders  hervorzuheben  ist  noch  die 
ausgezeichnete  Menueführung,  die  je¬ 
des  Multisoft-Programm  besitzt 
Über  die  bisher  bestehenden  Pro¬ 
gramme  dieser  Reihe  werden  wir  in 
fortlaufender  Serie  noch  berichten.  An 
dieser  Stelle  wollen  wir  jedoch  das  lei¬ 
stungsfähigste  Programm  der  Reihe 
vorstellen. 

Das  erweiterte  Multi-Dateisystem  ist 
zunächst  einmal  eine  generative  Daten¬ 
bank  mit  frei  definierbarer  Eingabe¬ 
maske,  wie  sie  schon  in  den  voran¬ 
gehenden  Heften  in  großer  Anzahl 
vorgestellt  wurden.  Da  sich  in  der 
letzten  Zeit  ein  eindeutiger  Trend  zu 
solchen  universellen  Dateisystemen 
aufzeigte,  dürfte  wohl  jeder  wissen,  was 
mit  generativ  gemeint  ist 
Der  wichtigste  Gesichtspunkt,  der  bei 
einer  solchen  Datei  beachtet  werden 
sollte,  ist  natürlich  die  Kapazität.  Hier 
hat  EMS  einiges  zu  bieten,  was  den  ge¬ 
wohnten  Standardrahmen  sprengt.  Ein 
Datensatz  besteht  zunächst  einmal  aus 
Feldern  wie  NAME,  VORNAME,  WOHN¬ 
ORT,  etc.  In  ein  solches  Feld  kann 
man  jeweils  bis  zu  63  Zeichen  packen. 
Das  dies  über  die  Länge  eines  normalen 
Vornamens  hinausgeht,  dürfte  jeder  so¬ 
fort  merken.  Wem  dies  jedoch  zu  wenig 
sein  sollte,  der  sei  daraufhingewiesen, 
daß  er  bis  zu  40  solcher  Felder  in  einem 
Datensatz  verwenden  kann  und  daß  bis 
zu  2000  Datensätze  pro  Datei  möglich 
sind.  Die  Menge  der  Dateien  richtet 
sich  danach,  wieviel  Disketten  Sie  sich 
kaufen  können. 

Jedem  dürfte  auf  der  Stelle  klarwerden, 
daß  diese  Leistungsmerkmale  kaum 
noch  zu  schlagen  sind. 

Aber  auch  die  zusätzlichen  Bonbons, 
die  EMS  bietet,  können  sich  sehen  las¬ 
sen.  So  läßt  sich  beispielsweise  per  Ta¬ 
stendruck  eine  ASCII-Schreibmaschi- 
nentastatur  hersteilen,  die  über  einen 
deutschen  Zeichensatz  mit  Umlauten 
verfügt.  Listen  und  Etikettendruck  sind 
sowieso  Standard  bei  jedem  Dateisy¬ 
stem. 

Der  besondere  Clou  von  EMS  ist  je¬ 
doch,  daß  im  Grunde  genommen  noch 
eine  Mini-Tabellenkalkulation  ent¬ 
halten  ist,  mit  der  verschiedene  Felder 
der  Eingabedateien  gegeneinander 
aufgerechnet  werden  können.  Damit 
eignet  sich  EMS  auch  dazu,  Lagerbuch¬ 
führungen  oder  eine  Mahnwesendatei 
zu  erstellen. 

Komplexe  Such-  und  Sortierroutinen 
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FÜR 

EINSTEIGER 

EIN  DATA  BECKER  BUCH 


Das  sollte  Ihr  erstes  Buch  zum  CPC-6128 
sein!  CPC-6128  für  Einsteiger  ist  eine  sehr 
leicht  verständliche  Einführung  in  Hand¬ 
habung  und  Einsatz  des  CPC-6128,  die  kei¬ 
nerlei  Vorkenntnisse  voraussefzt.  Dazu  eine 
Einführung  in  BASIC,  wobei  Sie  eine  kom¬ 
plette  Adressenverwaltung  erstellen,  die 
Sie  anschließend  nutzen  können.  Unent¬ 
behrlich  für  jeden  CPC-6128  Einsfeiger! 
CPC-6128  für  Einsteiger,  215  Selten, 

DM  29,- 


Wer  sich  für  den  Schneider  CPC  464  ent¬ 
schieden  hat,  der  findet  hier  den  optimalen 
Einstieg!  Neben  den  wichtigsten  Hinweisen 
zu  Handhabung  und  Anschlußmöglich¬ 
keiten  werden  Sie  schrittweise  in  die  Pro¬ 
grammerstellung  eingeführt.  Zahlreiche 
Abbildungen  und  Bildschirmfotos  ergänzen 
den  Text.  Das  ideale  Buch  für  jeden,  der 
mit  dem  CPC  464  das  Computern  begin¬ 
nen  will! 

CPC  464  für  Einsteiger,  206  Seiten, 

DM  29.- 


Rund  um  den  CPC  464  viele  Anregungen 
und  wichtige  Hilfen!  Von  Hardwareaufbau, 
Betriebssystem,  BASIC-Tokens,  Anwendun¬ 
gen  der  Windowtechnik  und  sehr  vielen 
interessanten  Programmen  bis  zu  einer 
umfangreichen  Dateiverwaltung,  Sound¬ 
editor,  komfortablem  Zeichengenerator  und 
kompletten  Listings  spannender  Spiele  bie¬ 
tet  dieses  Buch  eine  Fülle  von  Möglichkei¬ 
ten.  Diese  Tips  kommen  von  den  DATA 
BECKER  Spezialisten! 

CPC  464  Tips  &  Tricks,  271  Seiten, 

DM  39,- 


Tips  &  Tricks  für  alle  CPC  Benutzer! 
Menuegenerator,  Maskengenerator,  BASIC- 
Befehlserweiterungen,  Programmierhilfen 
wie  Dump,  BASIC-Zeile  von  BASIC  aus 
erzeugen,  wichtige  Systemroutinen  und 
deren  Nutzung,  Beschleunigung  von  Pro¬ 
grammen  u.v.m. 

CPC  Tips  und  THcks  Band  II, 
ca.  250  Seiten,  DM  39,- 


Alles  über  Floppyprogrammierung  vom  Ein¬ 
steiger  bis  zum  Profi.  Natürlich  mit  ausführ¬ 
lichem  ROM-Listing,  einer  äußerst  komfor¬ 
tablen  Dateiverwaltung,  einem  hilfreichen 
Disk-Manager.  Dazu  eine  Fundgrube  ver¬ 
schiedener  Programme  und  Hilfsroutinen, 
die  das  Buch  für  jeden  Floppy-Anwender 
zur  Pflichtlektüre  machen! 

Das  Floppybuch  zum  CPC,  353  Selten, 

DM  49- 


Endlich  CP/M  beherrschen!  Von  grundsätz¬ 
lichen  Erklärungen  zu  Speicherung  von 
Zahlen,  Schreibschutz  oder  ASCII,  Schnitt¬ 
stellen  und  Anwendung  von  CP/M-Hilfspro- 
grammen.  Für  Fortgeschrittene:  Fremde 
Diskettenformate  lesen,  Erstellen  von  Sub- 
mit-Dateien  u.v.m.  Dieses  Buch  berücksich¬ 
tigt  die  Versionen  CP/M  2.2  und  3.0  für 
Schneider  464,  664  und  6128. 

Das  CP/M-Trainlngsbuch  zum  CPC, 

260  Seiten,  DM  49,- 


Ein  Muß  für  jeden,  der  sich  professionell 
mit  dem  CPC  664  oder  dem  CPC  6128 
beschäftigt.  Einführung  in  das  System,  den 
Prozessor,  das  Gate  Array,  den  Video-Con¬ 
troller,  den  Schnittstellenbaustein  8255, 
den  Soundchip,  die  Schnittstellen.  Mit 
Disassembler  und  ausführlichen  Kommen¬ 
taren  zu  den  Routinen  von  Interpreter  und 
Betriebssystem.  Ein  Superbuch,  wie  alle 
Titel  der  INTERN-Reihe! 

CPC  664/6128  INTERN.  456  Seiten, 

DM  69,- 


Nützliche  und  pfiffige  Ideen  rund  um  Frei¬ 
zeit  und  Alltag!  Denn  auch  hier  ist  der  CPC 
ein  kleines  Genie.  Das  zeigen  Programme 
mit  Beschreibung  und  Beispielen  zu:  Lotto 

-  Benzinverbrauch  -  Geld  und  Kredit  - 
Schreiben  und  Verwalten  -  Staat  und 
Steuer  -  Haushaltsorganisation  -  Stricken, 
Fußball,  Blumenpflege  -  Kinder  und  Schule 

-  u.v.m.  Dazu  im  Anhang  wichtige  BASIC- 
Anweisungen  und  Fehlermeldungen! 

Das  Ideenbuch  zum  CPC  464,  664  & 
6128, 294  Seiten,  DM  39,- 
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Wer  PEEKS  und  POKES  zum  CPC  464  ken¬ 
nen  und  anwenden  will,  der  findet  hier 
umfassende  Information!  Sie  reicht  vom 
Adreßbereich  des  Prozessors  über 
Betriebssystem  und  Interpreter  bis  hin  zur 
Einführung  in  die  Maschinensprache.  Dazu 
Programmierhilfen,  Routinen  sowie  reich¬ 
lich  Material  zu  den  Themen  Grafikfunktio¬ 
nen,  Massenspeicherung  und  Peripherie, 
Tricks  und  Formeln  in  BASIC  und  RAM- 
Pages! 

Peeks  &  Pokes  zum  CPC,  180  Seiten, 

DM  29,- 


Wirklich  alle  Geheimnisse  des  CPC  464  lüf¬ 
tet  dieses  Standardwerk:  Neben  dem  kom¬ 
mentierten  BASIC-ROM-Listing  enthält  es 
Kapitel  zu  Speicheraufteilung,  Prozessor, 
Besonderheiten  des  Z80,  Gate  Array,  Video- 
Controller  und  Video-Ram,  Soundchip, 
Schnittstellen,  Betriebssystem,  Roufinenut- 
zung,  Character-Generator,  u.v.m.  Für  den 
fortgeschrittenen  BASIC-Programmierer 
unentbehrlich,  für  den  Assembler-Program¬ 
mlerer  ein  absolufes  Muß! 

CPC  464  Intern  mit  kommentiertem  ROM- 
Listing,  548  Seiten.  DM  69- 


BASIC- 
TRAININGSBUCH 


TTT. 


EIN  DATA  BECKER  BUCH  ] 


CPC  464  BASIC?  Kein  Problem!  Mit  diesem 
Trainingsbuch  lernen  Sie  von  Grund  auf 
nichf  nur  die  einzelnen  Befehle  und  ihre 
Anwendungen,  sondern  auch  einen  richtig 
sauberen  Programmierstil.  Von  der 
Problemanalyse  über  den  Datenflußplan 
bis  zum  fertigen  Programm.  Dazu  viele 
Übungsaufgaben  mit  Lösungen  und  zahl¬ 
reichen  Beispielen.  Schlichtweg  unentbehr¬ 
lich!- 

Das  BASIC-Trainingsbuch  zum  CPC  464, 
285  Seiten,  DM  39- 


Von  den  Grundlagen  der  Maschinenspra¬ 
cheprogrammierung  über  die  Arbeitsweise 
des  Z80-Prozessors  und  einer  genauen 
Beschreibung  seiner  Befehle  bis  zur  Benut¬ 
zung  von  Systemroutinen  ist  alles  ausführ¬ 
lich  und  mit  vielen  Beispielen  erklärt.  Im 
Buch  enthalten  sind  Assembler,  Disassem¬ 
bler,  Einzelschritt-Simulator  und  Monitor  als 
komplette  Anwenderprogramme.  So  wird 
der  Einstieg  In  die  Maschinensprache 
leichtgemacht! 

Das  Maschinensprachebuch  zum  CPC 
ca.  300  Seiten,  DM  39,- 
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CPC  464,  664  &  6128 


PROZESSOR 
BUCH 


Technik  &  Programmierung 
EIN  DATA  BECKER  BUCH 


Speziell  für  den  Hobbyelektroniker,  der 
mehr  aus  seinem  CPC  machen  möchte! 

Von  nützlichen  Tips  zur  Platinenherstellung 
über  Adreßdecodierung,  Adapterkarten  und 
Interfaces  bis  zu  EPROM-Programmier- 
board  und  -Programmiernetzteil  oder 
Motorsteuerung  für  Gleich-  und  Schritt¬ 
schaltmotoren  werden  machbare  Erweite¬ 
rungen  ausführlich  und  praxisnah  be¬ 
schrieben.  Am  besten  gleich  anfangen! 

CPC  Hardware-Erweiterungen, 

445  Seiten,  DM  49- 


sawmri  svtm 

DFÜ 

FÜR  JEDERMANN 

CPC 
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Das  Superbuch  zum  Z80  Prozessor! 
Systemarchifektur,  Pinbeschreibung, 
Register,  Befehlsausführung,  Flags,  CPU- 
Soflware,  Anschluß  von  Systembausteinen, 
serielle/parallele  Datenübertragung, 
Zähler/Timerbaustein  Z80-CTC  und  Befehl¬ 
satz.  Alles  ausführlich  beschrieben  und  mit 
vielen  Abbildungen!  Als  Lehrbuch  und 
Nachschlagewerk  für  jeden  Maschinen- 
spracheprogra  m  m  ie  rer  u  nentbehrlich! 

Das  Prozessorbuch  zum  Z80, 560  Seiten, 
DM  59,- 


K' 


Nutzen  Sie  die  außergewöhnlichen  Grafik- 
und  Soundmögllchkeiten  des  CPC  464! 
Natürlich  mit  vielen  interessanten  Beispie¬ 
len  und  Programmen:  Grafikgrundlagen, 
Sprites,  Shapes,  Strings,  mehrfarbige  Dar¬ 
stellungen,  Koordinationstransformation, 
Verschiebungen,  Drehungen,  Rotation,  3-D- 
Funktionsplotter,  CAD,  Synthesizer,  Mini¬ 
orgel,  Hüllkurven  u.v.m.  Dieses  Buch  wird 
Sie  begeistern! 

CPC  Graphik  &  Sound,  220  Seiten, 

DM  39,- 


DFÜ  für  Jedermann  mit  dem  CPC  bietet 
eine  ausführliche  und  verständliche  Einfüh¬ 
rung  in  das  Gebiet  der  Datenfernübertra¬ 
gung:  was  ist  DFÜ,  BTX,  DATEX,  Mailbox, 
alles  über  Modems  und  Koppler.  Begriffs¬ 
erklärung:  Originate,  Answer,  Half-Duplex 
usw.,  eine  serielle  Schnittstelle  am  CPC,  RS- 
232/V.24  simuliert,  Mailboxsoftware  - 
selbstgestrickt,  Postbestimmungen  u.v.m. 
Steigen  Sie  mit  diesem  Buch  in  die  Welt 
der  Datennetze  und  Datenfernübertragung 
ein! 

DFÜ  für  Jedermann  zum  CPC,  über  250 
Seiten,  DM  39,-  (Erscheint  ca.  Dez.) 


Textomat 


Deutschlands  meistgekaufte  Textverarbeitung  bietet 
Profileistung  zum  Hobbypreis!  TEXTOMAT  in  Stichworten: 

-  Diskettenprogramm  durchgehend  menuegesteuert  - 
deutscher/amerikanischer  Zeichensafz  -  Rechenfunktio¬ 
nen  für  alle  Grundrechenarten  -  über  17.000  Zeichen  pro 
Text  im  Speicher  -  beliebig  lange  Texte  durch  Verknüp¬ 
fung  -  80  Zeichen  pro  Zeile  -  läuft  mit  ein  oder  zwei  Flop- 
pys  -  27  Farben  für  Rahmen-Hintergrund-Bildschirmfarbe 

-  es  können  Trennvorschläge  gemacht  werden  -  Word- 
wrap  -  Tabulatoren  -  Seitennumerierung  -  Proportional¬ 
schrift  auf  entsprechendem  Drucker  -  Zuweisungstabelle 
für  ASCII-Code — frei  definierbare  Steuerzeichen,  z.B.  für  Indl- 
ces,  Schriftarten,  Unterstreichen,  Formate  -  umfangreiche 
Formularanpassungen  -  Blockoperationen,  .Suchen  und 
Ersetzen'  -  Serienbrieferstellung  mit  DATAMAT  -  formatierte 
Ausgabe  auf  dem  Bildschirm  -  Anpassung  an  fast  jeden 
Drucker  -  ausführliches  Handbuch  mit  Übungslektion  - 
Komplett  nur  DM  148  -  für  CPC  464, 664  und  6128,  die 
richtige  Version  wird  automatisch  geladen. 

^  Textomat  Plus _ 

Neues  Textverarbeitungsprogramm  der  Superlative.  Er¬ 
heblich  erweiterte,  leistungsstärkere  TEXTOMAT-Version. 

Bietet  alle  Möglichkeiten  von  TEXTOMAT  und  zusätzlich: 

+  ergonomische,  schreibmaschinenähnliche  Texteingabe 
arbeitet  grundsätzlich  im  80  Zeichenmodus  -I-  2  dynamisch 
verwaltete  Textbereiche  im  Speicher.  Zwischen  beiden  Tex¬ 
ten  kann  beliebig  hin-  und  hergeschaltet  sowie  kopiert  wer¬ 
den.  Wahlweise  Menuesteuerung  oder  schnelle  Direktan- 
wahl  der  Funktionen.  10  Floskeltasfen  für  häufig  wiederkeh¬ 
rende  Worte  oder  Redewendungen.  Sehr  komfortable  Cur¬ 
sorsteuerung  (vor/zurück-  Zeichen /Wort /Satz/Absatz) 
+ Trennvorschläge  nach  deutscher  Grammatik + Kopf-  und 
Fußzeilen  während  des  Textes  änderbar + bedingter  Seiten¬ 
wechsel  +  BASIC-Programme  können  eingelesen,  editiert 
und  abgespeichert  werden,  dabei  automatisch  ASCII  Um- 
und  Rückwandlung + Suchen  und  Ersetzen  mit  vielen  Optio¬ 
nen  und  Joker  (vor/rückwörts  -  Klein/Großschreibung  - 
ganze  Wörter)  +  komplettes  Terminalprogramm  zum  pro¬ 
blemlosen  Senden  und  Empfangen  von  Texten  sowohl  zum 
Halb-  als  auch  Vollduplexbetrieb. 

TEXTOMAT  PLUS  für  CPC  6128  kostet  DM  198,- 
Lieferbar  ab  ca.  Dezember 


g  Datamat 


Deutschlands  meistgekaufte  Dateiverwalfung  bietet  eini¬ 
ges,  was  in  dieser  Preisklasse  bisher  unvorstellbar  schien: 

-  menuegesteuertes  Diskettenprogramm,  dadurch  extrem 
einfach  zu  bedienen  -  für  jede  Art  von  Daten  -  völlig  frei 


gestaltbare  Eingabemaske  -  80  Zeichen  pro  Zeile  -  Hard¬ 
copy  -  50  Felder  pro  Datensatz  -  512  Zeichen  pro  Datensatz 
-  bis  zu  4000  Datensätze  pro  Datei  je  nach  Umfang  -  27  Far¬ 
ben  für  Rand,  Hintergrund  und  Buchstaben  -  Schnittstelle  zu 
TEXTOMAT  -  Benutzung  von  Rechenfeldern  -  Anzeige  des 
Disketteninhaltes  -  läuft  mit  ein  oder  zwei  Floppys  -  kom¬ 
plett  In  Maschinensprache,  dadurch  extrem  schnell  -  deut¬ 
scher/amerikanischer  Zeichensatz  -  fast  jeder  Drucker  ist 
anschließbar  -  duplizieren  der  Datendiskette  -  gute  Benut¬ 
zerführung  -  Hauptprogramm  komplett  im  Speicher  -  kein 
lästiges  Nachladen  -  deutsches  Handbuch  mit  Übungslexi¬ 
kon  -  Sie  können:  jeden  Datensatz  in  wenigen  Sekunden 
suchen  -  nach  beliebigen  Feldern  selektieren  -  nach  allen 
Feldern,  auf-  oder  absteigend  sortieren  -  Listen  in  völlig 
freiem  Format  drucken  -  Etiketten  drucken. 

Komplett  nur  DM  148,-.  Für  CPC  464, 664  und  6128,  die 
richtige  Version  wird  automatisch  geladen. 


Profimat  CPC 


Zur  Programmierung  in  Maschinensprache  benötigt  man 
einen  Assembler.  Doch  Assembler  ist  nicht  gleich 
Assembler. 

Deshalb  gibt  es  PROFIMAT  nun  auch  für  die  SCHNEIDER- 
Rechner.  Durch  den  integrierten  Editor  wird  das  Arbeiten  mit 
PROFIMAT  zum  Vergnügen.  Verketten  von  Quelltexten  für 
besonders  lange  Assemblerprogramme  ist  selbstverständ¬ 
lich  möglich.  PROFIMAT  für  den  SCHNEIDER  istaber  mehr  als 
nur  ein  Assembler,  er  ist  gleichzeitig  auch  Monitor.  Der  abso¬ 
lute  Clou  dieses  Assemblers  ist  die  Möglichkeit,  die  frisch 
assemblierten  Programme  im  TRACE-Modus  (Einzelschritt-) 
laufen  zu  lassen  und  so  jede  Änderung  an  den  CPU- 
Registern  verfolgen  zu  können.  PROFIMAT  ist  frei  verschieb¬ 
bar  und  kann  somit  nie  in  Konflikt  mit  Ihren  eigenen  Maschi¬ 
nenprogrammen  kommen.  Einfache  Handhabung  durch  den 
komfortablen  Editor  auch  für  Anfänger  garantiert.  Selbstver¬ 
ständlich  .beherrscht"  der  Assembler  auch  die  sogenannten 
Pseudo-Ops,  die  bedingtes  Assemblieren  möglich  machen. 
PROFIMAI  CPC  DM  99,-.  Lieferbar  für 
SCHNEIDER  CPC  464,  664  und  6128 


g  Mathemat  CPC 

MATHEMAT  CPC  ist  ein  unentbehrliches  Hilfsmittel 
für  Schule,  Studium  und  Beruf. 

Mit  MATHEMAT  CPC  erhalten  Sie  die  Möglichkeit,  Probleme 
der  Algebra,  Geometrie  und  der  Kurvendiskussion  besser 
und  schneller  zu  lösen.  Zudem  können  Sie  mit  dem  einge¬ 
bauten  Taschenrechner  Aufgaben  aus  den  Gebieten  Prim¬ 
zahl-,  Prozent-  oder  auch  der  Dreisatzrechnung  spielend 
lösen.  Zu  jedem  Zeitpunkt  besteht  die  Möglichkeit  eine  Hard¬ 
copy  auf  einem  Drucker  auszugeben. 

Für  CPC  464,  664,  6128.  MATHEMAT  CPC  DM  99,- 


Profi-Rainter  CPC 

PROFI  PAINTER,  ein  sensationelles  Programm  zum  Malen, 
Entwerfen  und  Zeichnen  auf  CPC  Computern.  Den  berühm¬ 
ten  Vorbildern  der  32-bit-Welt  steht  PROFI  PAINTER  kaum 
nach  und  übertrifft  diese  sogar  in  manchen  Punkten. 

Zum  Erstellen,  Korrigieren,  Sichern  und  Drucken  von  Grafi¬ 
ken.  PROFI  PAINTER  beinhaltet  eine  grafikorlentierte 
Benutzerschnlffstelle.  Direkt  am  Bildschirm  und  mit  Hilfe 
von  deutlichen  Symbolen  kann  jeder  anfangen,  Bilder,  Grafi¬ 
ken  oder  technische  Zeichnungen  zu  erstellen.  Mit  dem  Joy¬ 
stick  bewegen  Sie  den  Zeiger  an  jede  beliebige  Stelle  auf 
dem  Bildschirm,  ein  Klick  und  die  Funktion  wird  ausgeführt. 
Folgende  Hilfsmittel  stehen  zur  Verfügung: 

-  der  Bleistift,  mit  dem  Sie  feine  Linien  zeichnen  oder 
löschen 

-  der  Pinsel,  in  verschiedenen  Größen  und  Formen,  mit 
dem  Sie  malen 

-  die  Sprühdose,  mit  der  Sie  Graffitis  erstellen 

-  der  Farbeimer,  mit  dem  Sie  beliebige  Flachen  ausfüllen 

-  der  Radiergummi,  mit  dem  Sie  bestimmte  Stellen  wieder 
löschen 

-  das  Lineal,  mit  dem  Sie  beliebige  Linienzüge  zeichnen 

-  das  Rechteck,  mit  abgerundeten  Ecken 

-  der  Kreis/Ellipse 

-  die  Polygone 

-  das  Lasso,  mit  dem  Sie  Bildausschnitte  einfangen  können 

-  der  Markierungsrahmen,  um  Bildschirmbereiche  zwecks 
weiterer  Bearbeitung  zu  definieren 

-  die  Textmarke,  ab  der  Sie  Text  eingeben  können 

-  aus  einem  der  fünf  Zeichensätze 

-  in  einer  der  drei  Zeichengrößen 

-  in  einer  der  fünf  Schriftarten 
Folgende  Optionen  können  Sie  anwählen: 

-  den  Vergrößerungsmodus 

-  das  Ganze  Seite  Zeigen 

-  vorhandene  Muster  umdefinieren 
Das  professionelle  deutsche  Spitzenpro¬ 
gramm,  komplett  mit  ausführlichem  Hand¬ 
buch,  für  CPC  464,  664  oder  6128. 

PROFI  PAINTER  CPC  DM  198,-. 
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runden  das  Programm  ab  und  machen 
es  zum  idealen  Dateisystem  für  semi¬ 
professionelle  Anwender. 

(TM) 


MICA 


Hersteller:  E  &  C 

Vertrieb:  E  &  C 

Autor:  H.  Kress/R.  Nagengast 

Steuerung:  Tastatur 

Monitor:  Farbe/Grün 

Programm:  100%  M-Code/CP/M 

Preis:  198,-  DM 

CPC  464  □  CPC  664  □  CPC  6128  □ 

G.rafikprogramme,  die  sich  mit  der  Be¬ 
zeichnung  ÜAD  schmücken,  gibt  es 
mittlerweile  wie  Sand  am  Meer.  Will 
man  jedoch  unter  CP/M  Grafiken  er¬ 
stellen,  so  stieß  man  bisher  auf  Schwie¬ 
rigkeiten.  Bisher  deshalb,  weil  sich 


nun  endlich  ein  Anbieter  gefunden  hat, 
der  ein  unter  CP/M  laufendes  Grafik¬ 
programm  mitCAD-Grundfunktionen 
anbieten  kann. 

Mica  bietet  neben  einer  sehr  einfachen 
Bedienung,  wie  professionelle  CAD- 
Programme,  sogenannte  Symbolbi¬ 
bliotheken  in  denen  Zeichen  abgelegt 
werden  können,  die  dann  nachher  stu¬ 
fenlos  vergrößert  und  verkleinert  wer¬ 
den  können,  vom  Rechner  in  die 
richtige  Position  rotiert  werden  und  da¬ 
nach  in  eine  erstellte  Zeichnung  ein¬ 
gesetzt  werden. 

Dabei  ist  es  egal,  ob  es  sich  bei  diesen 
Zeichen  um  Buchstaben,  Elektro¬ 
niksymbole  oder  vielleicht  um  Ein¬ 
richtungsgegenstände  einer  Wohnung, 
wie  sie  beispielsweise  ein  Ladenbauer 
verwendet,  handelt. 

Um  gleich  loslegen  zu  können,  befin¬ 
den  sich  auf  der  Diskette  zwei  vorge¬ 
fertigte  Bibliotheken  mit  Textzeichen 
und  Symbolen  aus  der  Elektrotechnik. 
Weiterhin  stehen  dem  Anwender  ins¬ 
gesamt  sechs  Bildebenen  zur  Verfü¬ 
gung,  auf  denen  sich  die  einzelnen 
Zeichnungen  befinden. 

Diese  Bildebenen  lassen  sich  einzeln 
oder  in  beliebiger  Kombination  am 
Bildschirm,  Drucker  oder  Plotter 
darstellen. 


Durch  die  Funktion  der  Symbolver¬ 
größerung  sind  Beschriftungen  und 
maßstabsgetreues  Zeichnen  im  Zoll¬ 
oder  Millimeterbereich  möglich.  Selbst 
die  fertige  Zeichnung  läßt  sich  noch 
durch  Zoom-Funktionen  verkleinern 
und  vergrößern. 

Um  Limen,  Kreise  oder  Symbole  genau 
zu  positionieren,  läßt  sich  jederzeit  ein 
Hilfsraster  einblenden. 

Damit  sich  die  fertige  Zeichnung  auch 
professionell  verwenden  läßt,  ist  die 
Option  der  Plotteransteuerung  sehr  zu 
begrüßen.  Der  farbige  Ausdruck  hat  die 
Qualität  einer  technischen  Reinzeich¬ 
nung. 

Ein  für  DM  198  -  nicht  zu  teures  Gra¬ 
fikprogramm,  das  zumindest  die 
Grundzüge  echten  CAD‘s  auf  den 
Schneider  bringt. 

(TM) 
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Formula  One: 

Was  vom  Namen  her * 
auf  ein  spannendes 
Autorennen  hoffen  läßt, 
entpuppt  sich  als 
langweiliges  Simula¬ 
tionsspiel. 
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PRESS  PUY  KEY  TO  CONTXNUE 


Hersteller.  CRL 

Vertrieb:  Heimcomputer  Shop/ 

Data  Media 
Autor:  G.  Munday 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  Basic 
Preis:  39,-  DM 

CPC  464  □  CPC  664  □  CPC  6128  □ 

Formula  One  hat  etwas  mit  Autoren¬ 
nen  zu  tun,  wie  der  Name  schon 
verrät. 

Allerdings  geht  es  bei  diesem  Spiel 
nicht  darum,  einem  Wagen  über  eine 
Rennstrecke  zu  steuern,  sondern  man 
muß.  wie  schon  beim  altbekannten 
Footballmanager,  die  Leitung  eines 
Teams  übernehmen. 

Über  zufallsgesteuerte  Funktionen  wer¬ 
den  Ergebnisse  von  Rennen  erzeugt.  Je 
nachdem,  ob  man  vorher  einen  beson¬ 
ders  guten  Fahrer,  neue  Maschinen  für 
die  Wagen  oder  einen  besonders  spen¬ 
dablen  Sponsor  beschafft  hat.  ist  das 
Ergebnis  der  Rennen  mehr  oder  weni¬ 
ger  positiv. 

Ziel  des  Spiels  ist  es.  die  Weltmeister¬ 
schaft  zu  gewinnen. 


Wer  sich  noch  an  den  Footballmanager 
erinnern  kann,  stellt  schnell  fest,  daß 
hier  ein  wenig  abgekupfert  wurde. 

Es  gelang  dem  Programmierer  auch 
recht  gut,  das  Thema  umzusetzen.  Was 
ihm  allerdings  nicht  gelang,  war  die 
Tatsache,  zu  behindern,  daß  ein  solches 
Spiel,  nachdem  man  es  erst  einmal 
durchgespielt  hat.  fürchterlich  langwei¬ 
lig,  und  von  da  an  wahrscheinlich  nie 
wieder  aus  der  hintersten  Ecke  des  Soft¬ 
wareregals  herausgekramt  wird! 

Da  alle  Eingaben  und  Begleittexte  in 
englisch  gemacht  werden,  wird  es  dem 
einen  oder  anderen  Anwender  über¬ 
haupt  nie  gelingen,  hinter  den  eigent¬ 
lichen  Sinn  des  Spiels  zu  steigen. 
Einzig  unterhaltsamer  Punkt  des  Pro¬ 
gramms  ist  die  Grafik  während  eines 
Rennens.  Zwar  ist  die  Ausführung  sehr 
mittelmäßig  programmiert  (simple 
Grafik,  flackern,  morbide  Soundef¬ 


fekte).  aber  wenigstens  findet  eine  Ab¬ 
wechslung  zwischen  den  ewigen  Me- 
nueeingaben  des  Hauptprogramms 
statt. 

Stellt  man  sich  bei  der  Aufstellung  des 
Rennteams  allzu  ungeschickt  an.  so 
geht  man  sehr  schnell  pleite.  Dies  ist  je¬ 
doch  nicht  schlimm,  weil  sich  immer  ir¬ 
gend  jemand  findet,  der  einen  Kredit 
gewährt,  den  man  dann  leicht  in  einer 
Spielbank  vervielfachen  kann. 

Sehr  realistisch  geht  es  hier  also  nicht 
zu.  Dies  wird  schon  klar,  wenn  man 
sich  überlegt,  welchen  Einfluß  die  Wahl 
des  Sponsors^igentlich  auf  ein  Renner¬ 
gebnis  haben  soll. 

Beim  eigentlichen  Rennen  kann  man 
über  Tastendruck  einen  Boxenstop  be¬ 
wirken,  wenn  ein  Wagen  am  Bild¬ 
schirm  vorbeikommt..  An  der  Box 
kommt  dann  noch  eine  kleine  Einlage, 
die  ein  wenig  Geschick  vom  Spieler  er- 
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fordert.  Man  muß  ein  kleines  Männ¬ 
chen  am  Bildschirm  hin  und  her  bewe¬ 
gen  und  somit  die  Reifen  wechseln 
lassen. 

Aber  auch  diese  kleine  Actionsequenz 
macht  das  Spiel  nicht  viel  aufregen¬ 
der. 

Rallyefans  und  Strategietüftler  werden 
bestimmt  eine  Weile  Spaß  an  dieser  Si¬ 
mulation  haben.  Wer  aber  gerne  mit 
dem  Joystick  arbeitet  und  Action  am 
Bildschirm  mag,  der  wird  sehr  ent¬ 
täuscht  von  der  mageren  Ausführung 
des  Spiels  sein.  (TM) 
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Southern  Belle 

Hersteller:  Hewson  Consultants 
Vertrieb:  Heimcomputer  Shop 
Steuerung:  Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  39.-  DM 

CPC  464  □  CPC  664  □  CPC  6128  □ 

Flugzeuge,  Space  Shuttles.  Rennwagen 
und  ähnliche  moderne  Dinge  wurden 
schon  in  jeder  beliebigen  Form  als  Si¬ 
mulation  auf  Computern  angeboten. 
Maßstäbe  setzen  hierbei  die  grafische 
Auswertung  des  Themas,  der  Realis¬ 
mus  der  Simulation  sowie  die  Geschwin¬ 
digkeit,  mit  der  das  Ganze  abläuft. 
Eine  vollkommen  neue  Idee  bei  den  Si¬ 
mulatoren  gab  es  lange  nicht  mehr. 
Jetzt  jedoch  hat  sich  Hewson  Consul¬ 
tants  an  die  Verwirklichung  einer 
neuen  Idee  gemacht.  Nicht  mehr  das 
Ultramoderne  wird  dem  Anwender  so 
wahrheitsgetreu  wie  möglich  nahege¬ 
bracht;  diesmal  handelt  es  sich  um  eine 
hoffnungslos  veraltete  Dampflokomo¬ 
tive. 

Trotz  dieses  Anachronismus,  im  Com¬ 
puterzeitalter  eine  Dampflokomotive 
zu  simulieren,  ist  das  Spiel  eine  der 


Southern  Belle: 

Ausgezeichnete  Grafik 
und  ein  toller  Spiel  witz 
zeichnen  diesen  Dampf¬ 
loksimulator  aus. 


packendsten  und  realistischsten  Simu¬ 
lationen  überhaupt 
24  verschiedene  Bahnhöfe  kann  man 
anfahren.  Der  Weg  zu  diesen  Bahnhö¬ 
fen  wird  von  einer  einwandfreien 
Vektorgrafik  mit  Bäumen,  Bahnüber¬ 
gängen,  Brücken  und  Weichen  beglei¬ 
tet. 


Bewertungsschema: 

Unsere  Bewertungsmatrix  zeigt 
waagerecht  die  Bewertungs¬ 
kriterien  Sound,  Grafik  etc...  und 
senkrecht  die  Noten  I  -  IO,  wobei  I 
für  „absolut  super"  und  10  für 
„Indiskutabel"  steht. 


Im  Gegensatz  zu  den  zahlreichen  be¬ 
kannten  Flugsimulatoren  gibt  es  hier 
nur  ein  einziges  Instrument,  das  über¬ 
wacht  werden  muß. 

Dieses  Instrument  ist  die  grafische  Dar¬ 
stellung  einer  alten  englischen  Eisen¬ 
bahneruhr.  Hier  ist  man  dann  auch 
gleich  beim  eigentlichen  Ziel  des  Spiels. 
Es  geht  um  Pünktlichkeit:  Die  Fahr¬ 
pläne  müssen  eingehalten  werden.  Dies 
erreicht  man  durch  ständige  Kontrolle 
der  Zeit,  des  Wasservorrats  und  des 
Kesseldrucks. 

Ob  man  nun  einen  Kesseldruck  hat,  der 
dem  Tempo  angepaßt  ist,  erkennt  man 
an  der  Form  der  Rauchwolken,  die  aus 


dem  Schornstein  der  Lok  kommen. 
Ein  besonderes  Erlebnis  ist  die  Einfahrt 
in  einen  der  maßstabsgetreu  nachgebil¬ 
deten  Zielbahnhöfe,  natürlich  auch 
wieder  von  einwandfreien  dreidi¬ 
mensionalen  Grafiken  begleitet. 

Sogar  bei  den  Soundeffekten  wurde  auf 
möglichst  große  Realität  geachtet: 
Fährt  man  beispielsweise  über  eine 
Brücke,  so  wird  das  Schienengeratter 
lauter. 

Sowohl  in  der  Ausführung  als  auch 
von  der  Spielidee,  ein  absolutes  No¬ 
vum,  das  in  keiner  Softwaresammlung 
fehlen  sollte.  (TM) 
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Fighting  Warrior 

Hersteller:  Melbourne  House 
Vertrieb:  Weeske 
Autor:  Stephen  Cargill 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  39,-  DM 


NEU  *  CPC  ANWENDERSOFTWARE  CPC  *  NEU 


•  Wärme-64/CPC,  Wärmebedarf  DIN  4701. 

mit  K-Zahl-Berechnung  DIN  4108.  kompl.  Ausdruck  ab  DM  69,— 

•  Rohrnetz-Berechnung,  2-Rohr.  zeta-Wen  ab  DM  99,- 

•  Paketpreis  Wärme  +  Rohrnetz  DM  1 49,- 

•  Zins-  +  Immobilien-Programm  m.  Ausdruck  ab  DM  29,- 

•  Lohn-  +  EKST-Programm  m.  Ausdruck  ab  DM  39,- 

•  Vereinsverwaltung  -  Faktura  -  Kassenbuch  je  ab  DM  59,- 

•  Multidatei  ab  DM  59,-  •  CPC-BUG 

Monitorprogramm  DM  59,— 

•  Multitext  ab  DM  79,-  •  CPC-TERM 

.  Terminalprogramm 

mit  V-Kabel  DM  1 29,- 

•  Multi  Vokabel  ab  DM  49,-  •  Dataphon  S  21  d  DM  298,- 

•  Spiele  ab  DM  9,90  -  4  Super-Spiele  auf  1  Disc: 

Nibblex,  Money  Molch,  Pongo  u.Time  nur  DM  89,- 

•  Disketten  3”  5 stck.  67,-  iostck.  128,-  5'/*”  iostck  34,90 


Alle  Preise  incl.  MWST  zzgl.  NN  +  Porto,  ab  DM  150,—  Porto  u.  Verp.  frei 
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CPC  464  E  CPC  664  □  CPC  6128  □ 

Sie  befinden  sich  im  alten  Ägypten  mit 
seinen  grausamen  Opferritualen,  teufli¬ 
schen  Kreaturen  und  legendären 
Zauberwesen. 

Ihre  Aufgabe  ist  es,  die  Prinzessin 
Thaya,  die  vom  bösen  Hohepriester 
Renrew  entführt  wurde,  zu  befreien  und 
in  die  Hände  ihres  besorgten  Vaters,  des 
Pharao,  zurückzubringen. 

Nur  mit  einem  Schwert  in  der  Hand 
und  mit  dem  Ruf  behaftet,  der  beste 
Kämpfer  des  Landes  zu  sein,  machen 
Sie  sich  auf  den  Weg  zum  Tempel  des 
Hohepriesters,  in  dem  Thaya  gefangen¬ 
gehalten  wird. 

Leider  hat  der  Böse  von  Ihren  Plänen 
erfahren  und  stellt  Ihnen  eine  Armee 
der  gefährlichsten  Dämonen  und  Mon¬ 
stren  in  den  Weg,  die  jemals  die  Erde 
bevölkerten.  Beseitigen  Sie  diese 
Kreaturen  in  klassischen  Schwertduel¬ 
len  und  dringen  Sie  in  den  Tempel  des 
Bösen  ein,  um  sich  der  gefährlichsten 
Herausforderung  Ihres  Lebens  zu 
stellen. 

Dies  ist  die  Geschichte  zum  Nachfolger 
von  »Way  Of  The  Exploding  Fist«. 

Wie  auch  schon  bei  der  Karatesimu¬ 
lation  wurden  hier  wieder  neue  Maß¬ 
stäbe  für  Grafik  und  Animation 
gesetzt. 

Phantastisch  scrollende  Hintergründe 
mit  ägyptischen  Landschaften  sowie 
perfekte  Bewegungsabläufe  bei  den  Be¬ 
wegungen  der  Kämpfer,  machen  es 
trotz  seines  martialischen  und  ein  we¬ 
nig  einfältigen  Spielthemas  zu  einer  der 
Sensationen  dieses  Monats.  Ein  ganzes 
Sortiment  von  Kreaturen,  denen  man 
das  Böse  auf  drei  Kilometer  Entfernung 
ansieht,  wurde  hier  aufgeboten.  Ein 
ausgezeichneter  Sound  mit  orientali¬ 
schen  Klängen  tut  den  Rest,  um  dieses 
neue  Melbourne  House  Programm  wie¬ 
der  in  eine  Spitzenposition  der  Soft¬ 
warecharts  zu  bringen.  (TM) 
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Spy  versus  Spy 

Hersteller:  Beyond 
Vertrieb:  Heimcomputer  Shop 
Autor:  Mike  Riedel 
Steuerung:  Joystick 
Monitor:  Farbe/Grün 
Programm:  100%  M-Code 
Preis:  49,-  DM 

CPC  464  Kl  CPC  664  El  CPC  6128  IS 

1960  tauchten  sie  zum  ersten  Mal  in 
dem  bekannten  Ulk-Magazin  MAD 
auf:  Zwei  schwarz  und  weiß  gekleidete 
Spione,  die  sich  gegenseitig  das  Leben 
schwer  machen. 

Erfinder  dieser  mittlerweile  welt¬ 
berühmten  Gestalten  war  der  bis  dahin 
noch  relativ  unbekannte  Zeichner  An¬ 
tonio  Prohias. 

MAD,  das  sich  schon  mit  Brett  und 
Kartenspielen  bei  der  Firma  Parker  ver¬ 
suchte,  gab  nun  endlich  seine  Einwilli¬ 
gung.  diese  beiden  lustigen  Figuren  zu 
den  Hauptakteuren  des  ersten  offiziel¬ 
len  MAD-Computerspiels  zu  machen. 
Mit  dieser  Aufgabe  wurde  die  amerika¬ 
nische  Firma  »First  Star  Software« 
beschäftigt. 

Was  dabei  herauskam.  kann  sich  wirk¬ 
lich  sehen  lassen. 

Bei  Spy  versus  Spy  können  Sie  gegen 
den  Computer  oder  einen  Mitspieler 
das  Entwenden  von  geheimen  Doku¬ 


menten  und  das  Austricksen  von  Geg¬ 
nern  erlernen. 

Das  Ganze  ist  mit  zwei  speziellen  Pro¬ 
grammierverfahren  entwickelt  worden, 
die  echtes  Multitasking  ermöglichen. 
Simulvision  stellt  ein  faszinierendes 
Split-Screenverfahren  dar,  bei  der  beide 
Spielfiguren  auf  zwei  grafisch  darge¬ 
stellten  Monitoren  völlig  unabhängig 
voneinander  ihre  Aktionen  ausführen. 
Treffen  sich  die  beiden  in  einem  der 
Räume  des  Labyrinths,  so  wird  dies 
auf  beiden  Monitoren  in  zeichentrick¬ 
ähnlicher  Qualität  dargestellt. , 

Das  zweite  Verfahren  ist  Simulplay  und 
koordiniert  die  Bewegungsabläufe  bei¬ 
der  Spielfiguren,  so  daß  zwei  voneinan¬ 
der  getrennte  Spielabläufe  möglich 
sind. 

Ziel  des  Spiels  ist  es,  ein  Geheimdoku¬ 
ment  zu  finden  und  danach  mit  einem 
versteckten  Flugzeug  zu  entkommen. 
Wem  dies  eher  gelingt,  der  ist  der 
Sieger. 

Da  man  natürlich  verhindern  will,  daß 
einem  der  gegnerische  Spion  zu¬ 
vorkommt,  hat  man  die  Möglichkeit, 
Räume  mit  Fallen  wie  Selbstschußan¬ 
lagen,  Säureeimern  und  Zeitbomben  zu 
versehen,  die  den  Gegner  blockieren. 
Glücklicherweise  gibt  es  auch  gegen 
jede  Falle  eine  Gegenmaßnahme.  Tref¬ 
fen  beide  Spione  gleichzeitig  in  einem 
Raum  ein,  so  kann  man  einen  Faust¬ 
kampf  veranstalten.  Um  diese  ganzen 
mörderischen  Anschläge  vor  der  Bun- 
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SPIELE: 

View  to  a  kill 
Bruce  Lee 
Dumbusters 
One  on  One 
Popeye 
Archon 
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Summer  Games  II  (K)  a.  A. 

ANWENDUNGEN: 


Bounty  Bob strikes  back  (K)  36- 


Centre  Court 
Cyrus-Schach 
Pole  Position 
Exploding  Fist 
Superpipeline  2 
Slapshot 
Starion 
Wizard's  Lair 
Dark  Powers 
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Wordstar 
dBase  II 
Multiplan 
Terminal  Star 
Supercalc  II 
Textomat  plus 
Basic-Compiler 
Assemblerkurs 
Tasprint 

ZUBEHÖR: 
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Joystick  JY2 
3"-Disketten 


(D)  1 99.— 
(D)  199.- 
(D)  1 99.- 
(D)  79.50 
(D)  198- 
(D)  198.- 
(D)  69.- 
(K)  64.- 
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148.- 
39.50 
5  St.  59.- 
10  St.  110.- 


Wir  führen  zu  den  original  SCHNEIDER-Produkten  Software,  Bücher  und 
Zubehör  verschiedener  Firmen  wie  DATA  BECKER,  VORTEX,  CUMANA, 
ISS,  RUSHWARE,  MARKT  4  TECHNIK,  SYBEX,  VOGEL-Verlag  usw.! 
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Spy  vs  Spy. 

Spionage  und  andere 
Agentenumtriebe 
bestimmen  die 
Handlung 

dieses  lustigen  Spiels. 


desprüfstelle  durchzubringen,  passiert 
natürlich  keinem  der  beiden  Spielfigu¬ 
ren  etwas  wirklich  Ernsthaftes.  Selbst 
die  Explosion  einer  Zeitbombe  ver¬ 
ursacht  nur  eine  kurze  Bewußtlosig¬ 
keit. 

Das  Spiel  ist  etwas  für  fröhliche  Leute, 
die  gerne  und  viel  lachen.  Ohne  Sinn 
für  Humor  kann  man  bei  diesem  Spiel 
nichts  werden.  (TM) 


Wizards  La ir 

Hersteller:  Bubble  Bus 
Vertrieb:  Bubble  Bus 
Steuerung:  Joystick/Tastatur 
Monitor:  Farbe/Grün 
Programm:  100%M-Code 
Unverb.  Preisempfehlung:  39,-  DM 

CPC  464  B  CPC  664  ®  CPC  6128® 

Ich  erwache  in  einer  ausgedehnten,  un¬ 
terirdischen  Halle.  In  dem  mich  umge¬ 
benden  Zwielicht,  erkenne  ich  einen 
Gegenstand  -  ein  Apfel.  Ich  bin  hungrig 
und  esse  den  Apfel;  sogleich  geht  es 
mir  besser. 


Ein  Geräusch  hinter  mir,  ich  drehe 
mich  um  -  eine  Tür  hat  sich  geöffnet 
und  eine  Horde  der  gnadenlosen  Be¬ 
stien  des  Zauberers  stürzt  herein.  Ein 
dunkler  Ritter  voran,  einige  unheim¬ 
liche,  verwachsene  Gestalten  hinter 
ihm  stürzen  gröhlend  und  mordlustig 
auf  mich  los.  Ich  nehme  eine  meiner 
Waffen,  eine  Axt,  und  schleudere  sie 
meinen  Widersachern  entgegen.  Immer 
mehr  dieser  Ungeheuer  strömen  in  den 
Raum,  die  Übermacht  wird  erdrückend. 
Eine  Axt  nach  der  anderen  schleudere 
ich  in  die  heulende  Meute,  und  ver¬ 
schwinde  durch  die  offene  Tür.  Dieser 
Raum  ist  leer,  keine  Untiere  lauern  auf 
mich.  In  der  Ecke  finde  ich  einen  Schlüs¬ 
sel,  der  mir  wohl  noch  gute  Dienste  lei¬ 
sten  wird.  Sie  haben  mich  entdeckt;  vor 
einer  der  Türen  kann  ich  schon  das 
Kreischen  und  Geifern  der  heran¬ 
nahenden  Kreaturen  hören. 

Gleich  zu  Anfang  mußten  wir  feststel¬ 
len,  daß  das,  was  dort  auf  dem  Bild¬ 
schirm  vor  uns  ablief,  doch  sehr  an  das 
Hitspiel  der  Firma  Ultimate  »Attic  At- 
tac«  erinnerte.  Aber  auf  dem  Com¬ 
puterspielmarkt  wurde  schon  immer 
abgekupfert  und  plagiiert,  was  wahr¬ 
scheinlich  auch  weiterhin  so  bleiben 
wird.  Trotzdem  muß  man  aber  auch  fest¬ 
stellen,  daß  manches  Spiel,  das  derar¬ 
tig  eine  fremde  Spielidee  aufgreift, 
manchmal  vieles  aus  den  Fehlern  des 
Originals  gelernt  hat. 

Was  macht  nun  der  Spieler,  dem  Attic 


Attac  vom  Spectrum  her  sehr  gut  gefällt, 
der  aber  dann  feststellen  muß,  daß  es 
dieses  Spiel  nicht  für  den  Schneider 
gibt?  Richtig,  er  holt  sich  »Wizards 
Lair«.  Die  Aufgabe  des  Spielers  in 
diesem  Arcade-Adventure  ist  es,  den 
Weg  aus  dem  mehrstöckigen,  unterirdi¬ 
schen  Labyrinth  eines  ausgesprochen 
übellaunigen  Zauberers  zu  finden. 
Dazu  benötigt  der  Spieler  vier  Teile 
einer  goldenen  Löwenstatue,  deren  magi¬ 
sche  Kräfte  in  der  Lage  sind,  ihn  aus  sei¬ 
ner  mißlichen  Lage  zu  befreien.  Ste¬ 
phen  Crow,  der  Autor  dieses  Spieles,  hat 
sich,  wie  eingangs  schon  angedeutet, 
doch  einige  Gedanken  zum  Spielablauf 
gemacht,  bevor  er  zu  programmieren 
begann.  Es  wurden  einige  Features  ein¬ 
gebaut,  die  das  Spielen  noch  attraktiver 
machen.  So  gibt  es  zum  Beispiel  magi¬ 
sche  Lifte,  in  denen  man  durch  Eingabe 
eines  Codewortes,  bzw.  des  Namens  des 
gewünschten  Levels,  sich  dorthin  tele- 
portieren  lassen  kann.  Außerdem  ist 
das  Labyrinth  des  Zauberers  ausge¬ 
sprochen  umfangreich,  die  Packungs¬ 
beilage  spricht  von  mehr  als  250  Räu¬ 
men.  Bisher  ist  es  uns  gelungen,  38%  da¬ 
von  zu  Gesicht  zu  bekommen,  nicht 
viel? 

Versuchen  Sie  es  selbst  einmal.  Sie  wer¬ 
den  sehen,  das  ist  schon  eine  echte  Lei¬ 
stung.  Die  Grafik  und  die  Animation 
der  Figuren  sind  gut  gelungen  und  flim¬ 
merfrei.  Auch  wird  bei  jedem  neuen 
Spiel  eine  neue  Verteilung  der  Gegen¬ 
stände  vorgenommen.  Sie  beginnen 
quasi  mit  jedem  Spiel  neu.  Interessant 
wäre  noch  zu  bemerken,  daß  Bubble 
Bus  die  Schneider-  und  die  Commo- 
dore  64-Version  gemeinsam  auf  einer 
Cassette  anbietet.  Allen  denen,  die  nun 
sagen  »Fein,  das  ist  wohl  ein  Spiel,  das 
mir  gefallen  würde«,  möchte  ich  noch 
mit  auf  den  Weg  geben,  daß  es  sich  ge¬ 
rade  in  diesem  Falle  lohnt,  die  Preise 
der  einzelnen  Anbieter  zu  vergleichen. 

(HS) 
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FINANZBUCHHALTUNG 

für  alle  Disketten-  und  Plattensysteme  mit  CP/M,  MS-DOS  oder  PC/DOS 
Praxisbewährte  Anwendung 

seit  1980  mehr  als  200  Firmen.  Alle  Programme  in  COBOL 
Die  preiswert*  Version:  Journal,  Konten,  Summen-  und  Saldenliste,  Um¬ 
satzsteuer-Voranmeldung,  Jahreswechsel 
nur  Sachkonten  DM  666  —  mit  Kunden/Lieferanten  DM  899, — 

Die  universelle  Version  mit  vielen  zusätzlichen  Möglichkeiten  wie:  offene- 
Posten-Liste,  Mahnungen,  Betriebswirtschaftliche-Auswertung  (BWA), 
mandantenfähig,  G  +  V,  Bilanz,  autom.  Zahlungsverkehr,  Adreßaufkleber, 
autom.  Fakturier-Übernahme,  Kostenstellen  u.v.m. 

DATA  SOFT  Software-Entwicklungsges.  m.  b.  H.  Bremen 
2800  Bremen  1 ,  Elsa-Brändströmstr.  32,  Telefon:  0421  -  23  90  55 
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Computerkurse 
am  Sendlinger  Tor 

PROGRAMMIERKURSE 

auf  Schneider  Computern  für 
Schüler  und  Erwachsene 

EINFÜHRUNG  IN  OIE  EDV 
SOFTWARESCHULUNG 

von  Datenverarbeitung  bis  Textverwaltung 
Siehe  auch  CPC  10/85  Seite  6 

Pettenkoferstraße  10a  ■  Tel.:  592905 
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Wordstar 

und  der 
NLQ- Drucker 

Mit  Wordstar  ist  nun  ein  Text- 
programm  erhältlich,  das  welt¬ 
weit  bekannt  und  standardisiert 
ist.  Wordstar  läuft  unter  CP/M 
auf  allen  Z-80-Rechnern  und 
kann  durch  entsprechende  Än¬ 
derungen  individuell  angepaßt 
werden. 

Sicher  hat  es  bereits  viele  Wordstar- 
Besitzer  geärgert,  daß  das  Programm 
nicht  in  der  Lage  ist,  die  Druckmög¬ 
lichkeiten  des  Schneider-Druckers 
NLQ  401  voll  auszuschöpfen.  Daher 
möchte  ich  die  Vorgehensweise  der  An¬ 
passung  des  Wordstarprogramms  am 
Beispiel  der  hoch-/tiefgestellten  Indi¬ 
zes,  die  der  Schneider  Drucker  ja  be¬ 
reits  fest  programmiert  hat,  darstellen. 
Zum  Umschalten  der  hoch-/tiefgestell- 
ten  Indizes  benutzt  das  Wordstar- 
Programm  die  Befehle  ‘PT  für  Hoch¬ 
zahlen  und  'PV  für  Indexzahlen  (je¬ 
weils  in  Verbindung  mit  der  CONTROL- 
Taste  einzugeben).  Werden  diese  Be¬ 
fehle  im  eingegebenen  Text  verwendet, 
läßt  der  NLQ  zwischen  Formel  und  In¬ 
dizes  eine  Zeile  frei.  Die  Indizes  werden 
in  normaler  Buchstabengröße  ausgege¬ 
ben.  Das  funktioniert  aber  nur,  wenn 
im  eingegebenen  Text  bereits  diese 
Leerzeile  berücksichtigt  wurde.  Ist  die 
Formel  vom  Text  eingerahmt  (ohne 
Leerzeile),  so  werden  die  Indizes  in  die 
Formel  mit  hineingezogen,  so,  als  ob 
der  Befehl  zur  Umschaltung  ('PT/‘PV) 
nicht  vorhanden  wäre. 

Doch  nun  zur  Anpassung: 

Das  Wordstar-Programm  verfügt  be¬ 
reits  über  mehrere  freie,  vom  Anwender 
zu  definierende  Befehle  wie  z.B.  ‘PQ, 
*PW,‘PE,‘PR.  Es  ist  jedoch  nicht  jeder¬ 
manns  Sache,  diese  Funktionen  anzu¬ 
passen,  da  das  zwar  sehr  umfangreiche 
Handbuch  gerade  in  diesem  Bereich  nur 
vage  Andeutungen  macht,  aber  keine 
konkrete  Vorgehensweise  beschreibt. 

Zur  Anpassung:  Man  lädt  CP/M  2.2 
und  das  Programm  »INSTALL«,  das 
sich  auf  der  B-Seite  der  Wordstar- 
Diskette  befindet  (Natürlich  arbeitet 
man  nur  mit  einer  Kopie.  Die  Original- 
Diskette  verwahrt  man  immer  an  einem 
sicheren  Ort  und  benutzt  sie  allenfalls, 
um  eine  Kopie  herzustellen.)  Nach  kur¬ 
zer  Zeit  meldet  sich  das  Programm 
»INSTALL«  mit  ”GP  INSTALL  Re¬ 
lease  2,00....”.  Danach  folgt  ein  auf¬ 
klärender  Text  über  das  Copyright  und 
die  Aufforderung:  "Type  any  key  to 


continue...”.  Man  drückt  eine  beliebige 
Taste  und  wird  über  die  Möglichkeiten 
des  Install-Programms  informiert  und 
gefragt,  ob  man  weiter  machen  möchte. 

Dieses  teilt  man  dem  Programm  durch 
Drücken  der  »Y«-  oder  der  »  RE¬ 
TURN  >  «-Taste  mit.  Daraufhin  muß 
der  Name  des  anzupassenden  Pro¬ 
gramms,  in  diesem  Falle  WS  für  Word¬ 
star,  eingegeben  und  <  RETURN  > 
gedrückt  werden.  Es  erscheint  ein  Text, 
der  in  die  Arbeitsweise  von  »INSTALL« 
einführt  und  die  Aufforderung  eine  be¬ 
liebige  Taste  zu  drücken.  Nachdem 
dieses  getätigt  wurde,  wird  nach  dem 
Disketten- Laufwerk  gefragt,  mit  dem 
gearbeitet  werden  soll.  Man  gibt  ein: 
”A:”  und  ”  <RETURN>”.  Es  wird  ge¬ 
fragt,  ob  das  neue  File  A:WSU:COM 
heißen  soll.  Man  drückt  '^RE¬ 
TURN  >”  und  wiederholt  dieses  ins¬ 
gesamt  noch  zweimal,  bis  endlich  die 
Meldung:  "install  is  copying  the  file 
A:WSU:COM  please  wait”  erscheint. 

Hieran  kann  man  erkennen,  daß  relativ 
gefahrlos  mit  »INSTALL«  gearbeitet 
werden  kann,  weil  ein  falscher  Ta¬ 
stendruck  noch  lange  nicht  das  »Aus« 
bedeutet. 


Es  erscheint  ein  Installations-Menue: 

A  Menue  of  Terminals 
B  Custom  Installation  of  Terminals 
C  Menue  of  Printers 
D  Custom  Installation  of  Printers 
E  Menue  of  Wordstar  Features 
X  Exit  from  Install 

Man  drückt  den  Buchstaben  »D«,  es  er¬ 
scheint  ein  Text  und  nach  ”  < RE¬ 
TURN  >”  das  "Printer  INSTAL¬ 
LATION  Menue”,  bei  dem  man  unter 
dem  Punkt  "Optional" 

O  User-defmed  functions 
P  Carriage  roll 
Q  Character  pitch 

findet.  Man  gibt  O  ein,  da  ja  die  vom 
Benutzer  definierbaren  Funktionen  be¬ 
legt  werden  sollen.  Es  erscheint  ein  Text 
und  "Enter  C  to  change,  or  press 
<  RETURN  >  to  leave  unchanged." 
Hierbei  handelt  es  sich  um  die  erste  frei 
definierbare  Funktion,  die  mit'PQ  auf¬ 


gerufen  werden  kann.  Man  drückt  C 
und  es  erscheint  eine  Erklärung  sowie 
die  Eingabemöglichkeit  für  das  erste 
Byte  (insgesamt  stehen  für  jede 
Funktion  vier  Bytes  zur  Verfügung). 
Man  kann  den  Code  in  ASCII-, 
Hexadezimal-  oder  Dezimal-Form  ein¬ 
geben.  Welche  der  drei  Möglichkeiten 
benutzt  wird,  teilt  man  dem  Programm 
mit,  indem  vor  dem  Code  ein  Zeichen 
(Doppelpunkt,  Komma  oder  Doppel¬ 
kreuz)  eingegeben  wird  (je  nachdem, 
welche  Form  gewählt  wird).  Die 
Funktion  ‘PQ  soll  später  im  Wordstar- 
Programm  die  Funktion  haben,  dem 
Drucker  den  Befehl  »ESC  S  1«  für  die 
Einstellung  »tiefgestellte  Indizes«  so¬ 
wie  den  Befehl  SI  für  die  Einstellung 
der  Zeichenverdichtung  zu  übermit¬ 
teln.  In  hexadezimaler  Schreibweise 
sieht  dies  folgendermaßen  aus: 

IB  (ESC) ,  53  (S) ,  01  (1) ,  OF  (SI) 

Man  gibt  also  bei  der  ersten  freidefi¬ 
nierbaren  Funktion  ein: 


Current 

New 

Taste 

Value 

Value 

00h 

,1B 

< RETURN > 

00h 

,53 

< RETURN > 

00h 

,01 

< RETURN > 

00h 

,0F 

< RETURN > 

Darauf  erscheint: 

#  1  User  function 

code  sequence  is  now:  lBh  53h  lh  Fh 
und  die  Frage,  ob  dieses  richtig  ist.  Man 
drückt  Y  oder  <  RETURN  >  .  Als 
nächstes  erscheint  die  Frage,  ob  die 
zweite  frei  definierbare  Funktion,  die 
mit ‘PW  aufgerufen  werden  kann,  defi¬ 
niert  werden  soll.  Man  drückt  wieder 
C  für  change  und  kann  die  Bytefolge 
der  zweiten  Funktion  auf  die  gleiche 
Art  wie  bei  der  ersten  Funktion,  einge¬ 
ben.  Die  Funktion  ‘PW  soll  ESC  S 
0  für  die  Einstellung  »hochgestellte  In¬ 
dizes«  und  SI  für  die  Einstellung  der 
Zeichenverdichtung  bewirken.  Man 
gibt  ein: 


Current 

New 

Taste 

Value 

Value 

00h 

,1 B 

<RETUTN> 

00h 

,53 

< RETURN > 

00h 

,00 

< RETURN > 

00h 

,0F 

<RETURN  > 

Daraufhin  erscheint  wieder  #2  User 
function  code  sequence  is  now:  1  Bh  53h 
Oh  Fh 

und  die  Frage  ob  dieses  richtig  ist 
’  < RETURN >’. 

Die  dritte  frei  definierbare  Funktion, 
die  mit  ‘PE  aufgerufen  wird,  soll  mit 
DC2  die  Einstellung  »schmale 
Schrift«  löschen  und  mit  ESC  T  den 
Indexmodus  löschen.  Man  gibt  wieder 
ein: 


Current  New  Taste 

Value  Value 

00h  ,12  <  RETURN  > 

00h  ,1 B  <  RETURN  > 
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00 h  ,54  <  RETURN  > 

00h  <RETURN  > 

Darauf  erscheint  #3  User  function 
code  sequence  is  now:  12h  lBh  54h  Oh 
;”<  RETURN  >” 

Die  vierte  definierbare  Funktion 
braucht  nicht  belegt  zu  werden.  Man 
drückt  daher  einfach  <  RETURN  > 
(statt  »C«)  und  bestätigt  diese  Eingabe 
nochmal  mit  <  RETURN  >  .  Es  er¬ 
scheint  wieder  das  "PRINTER  IN¬ 
STALLATION  MENUE”. 

Das  Drucken  der  Indizes  mit  dem  NLQ 
401  erfolgt  aber  nur,  wenn  die  Druckart 
NLQ  gelöscht  wird  und  hört  auf,  wenn 
NLQ  wieder  gewählt  wird.  Da  es  un¬ 
praktisch  ist,  hierbei  mit  zwei  verschie¬ 
denen  Befehlen  zu  arbeiten,  bietet  sich 
der  Befehl  'PY  für  die  Farbbandum- 
schaltung  -  die  beim  NLQ  ohnehin 
nicht  möglich  ist-  an.  Dieser  Befehl  soll 
folgendermaßen  funktionieren:  Beim 
Drucken  soll  NLQ  als  Normaleinstel¬ 
lung  bestehen  bleiben,  bis  der  Befehl 
'PY  zum  ersten  Mal  auftaucht.  Ab 
jetzt  ist  die  Druckart  NLQ  gelöscht 
(Druck  der  Indizes),  bis  'PY  zum 
zweiten  Mal  auftaucht  und  ab  hier  wie¬ 
der  normal  mit  NLQ  weitergedruckt 
wird. 

Man  wählt  dazu  im  Printer  Installation 
Menue  unter  dem  Punkt  »Speciality 
printer  only«  den  Punkt  »Ribbon  se- 
lection«;  drückt  also  I  .Es  muß  wieder 
C  für  change  eingegeben  werden. 
Die  Befehle  sind:  ESC  I  1  zum  Lö¬ 


schen  von  NLQ  und  ESC  I  3  zum 
Wählen  von  NLQ.  Man  gibt  ein  (für 
»alternate  ribbon  selection«): 


Current 

New 

Taste 

Value 

Value 

00h 

,1 B 

< RETURN > 

00h 

,49 

< RETURN > 

00h 

,01 

< RETURN > 

00h 

<RETURN> 

Es  erscheint:  "Altemate  ribbon  se¬ 
lection  function  code  sequence  is  now: 
lBh  49h  lh  0h”;”  < RETURN >”;”C” 
zum  Verändern  der  Standard  ribbon 
selection. 


Current 

New 

Taste 

Value 

Value 

00h 

,lß 

<RETURN> 

00h 

,49 

<RETURN  > 

00h 

,03 

< RETURN > 

00h 

< RETURN > 

Es  erscheint:  Standard  ribbon  selection 
code  sequence  is  now:  lBh  49h  3h  0h 
;”<  RETURN  >” 

Im  nachfolgenden  Printer  Installation 
Menue  drückt  man  X  für  "Exitto  IN¬ 
STALLATION  menue". 

Im  darauf  erscheinenden  Installation 
Menue  drückt  man  wieder  X  für  "Exit 
from  INSTALL” 

Es  erscheint:  Ihre  Geräte-Konfigura- 
tion: 


Terminal: 

Printer: 

Communications 

protocol: 

Driver: 


Schneider  CPCx64 
Computer 
Standard  Printer 

No  protocol 
Primary  list  device 


Man  drückt  A  um  alle  Änderungen 
abzuspeichern.  Kurz  darauf  ist  man 
wieder  im  Betriebssystem  CP/M  2.2. 
Um  mit  dem  "neuen”  Wordstar- 
Programm  arbeiten  zu  können,  löscht 
man  auf  der  Arbeitsdiskette  das  Word- 
star-Programm  und  kopiert  z.B.  mit 
PIP  unter  CP/M  das  neue  Wordstar- 
Programm  WS.COM  .  Danach  kön¬ 
nen  die  neu  definierten  Befehle  auspro¬ 
biert  werden. 

Die  neuen  Befehle: 


'PQ  =  Index  tief  und  Zeichenverdichtung 
ein 

'PW  =  Index  hoch  und  Zeichenver¬ 
dichtung  ein 

'PE  =  Schmalschrift  aus  und  Index  aus 
'PY  (1.  Mal)  =  NLQ  aus 
PZ  (2.  Mal)  =  NLQ  ein 

Die  Befehle  werden  wie  folgt  gehand- 
habt: 


TQH*PY2'PY0'PE  ergibt:  HzO 
oder  TWATY2TY+BTY2PY  = 
CTY2*PY'PE  ergibt:  A*+Bz  =  C* 
oder  TWA'PYrPY+BTQTYlTY  = 
5'PE  ergibt:  A*+B,  =  5 

Frank  Mestel 


für 


Eheste'  iV 


HARDWARE 

-  CPC  464  GrliWCol onroni tor  698.-/1198.— 

-  CPC  664  &1fi-/tolarnai1tor  1298. — /179B. — 

-  CK  6128  GrtrWColonronitor  1498.— /1 998.— 

-  Personal coiputer  “JOYCE"  2490.— 

-  C0I-1  3”-0iskettenl aufwerk  mit  Controller  748.— 

-  FD-1  3"-Zweitlaufwerk  548.— 

-  Curana  3”-Zwe1tlaufwerk  38B.— 

-  Curana  5.25"-Z»eitlaufwerk  598.— 

-  Sony  4-Fart  X/Y-Plcrtter  (DIN  A4-P<pier)  49B.- 

-  NLQ  401  ftetrixAucker  6S8.— 

-  Oklmate  20  Farbdrucker  798.— 

-  Seikosha  $P-1(XX)  KrtrixtkTjcker,  100  CPS,  Near  Letter 

Quality,  10  Zeichensütze,  kpl .  mit  Kabel  998.- 

-  Fonul  artraktor  für  NLQ  401  79.50 

-  W-2  ltdulator  zu»  Anschi  i£  eines  normalen  Femsehqyätes 

an  CPC  464/664/6128  MB.— 

-  RS-232  Schnittstelle  zu»  AnschliB  eines  Madais  MB.— 

-  CBtaphcn  S  21  d  Telefcrrode»  298.— 

-  teus  incl.  Software  348.— 

-  Turbo  Onior  Joystick  (  2  Feuerkncpfe  )  15.— 

-  Tu-bo  III  Joystick  mit  Microschaltem,  Dauerfeuer  und 

3  auswechselbaren  friffen  38.— 

-  Li^itpen  incl.  Software  99.— 

-  Sprachsynthesizer  incl.  Software  149.— 

-  Diskettenbox  Fii-  15  ^'-Disketten  38.- 

-  Diskettenbox  für  33  3"-Oisketten  49.- 

-  StaubschutthaU*  für  CK  Keytxrd  13.90 

-  Staubschutzhaube  fir  CK  Griimnitor  18.50 

-  Staubschutzfate  fl*  CK  Colomcnitor  19.50 

Liefetedlngmgan:  Bei  Yorauskasse  bei  Software  31  Shmto, 

sonst  per  Nachnahme  zuzüglich  Nachnahnege- 
btfr.  Preise  einschl.  gesetzl.  tterwert- 
steuer.  Bei  Bestellung  urtedingt  Coputzr- 
JM*  angeben.  Hlndestbestel lwert 
LDI  30.--!!! 


Schneider 

v  COrtPUTER  BMSIGn  J 


ANWENDERPROGRANNE 

-  Textemat  Textverarbeitung  d  M8.— 

-  Oatamat  Datei  Verwaltung  d  MB.— 

-  Textorat  Plus  d  198.— 

-  Buchet  kfcnager  d  MB.— 

-  Profiliert  Assentier  d  98.— 

-  Kitharat  d  148.— 

-  Profi -Painter  d  198.— 

-  HiltiaA'essen  c  58.— 

-  Mjltidatei  c/d  59  -/68.- 

-  Hjltitext  c/d  79.—/».— 

-  Nil  ti  vokatel  c/d  «.-/».- 

-  Sipercalc  II  f.  CK  6128  (v.  Schneider)  d  198.- 

-  Schneider  Coiputer-Kurs  d  115.— 

-  CJV8ASIC  1.0  Befehl serweiterung  mit  Grafik-  und  Kassetten¬ 

befehlen,  Programrierhilfen  und  Schnittstelle  zu  Assortier, 
sowie  IWCTECT-öefehl  ind  vieles  mehr!!!  c/d  39.-/«.- 

Fir  CK  464/664/6128,  JOYCE,  Cot».  128  und  ATARI  520  ST: 


-  kfcnistar  3.0  mit  Kiilnerge  d 

-  Niltiplan  (464  und  664  nur  mit  Erweitern.)  d 

-  (Base  II  (464  und  664  rxr  mit  Erweiterung)  d 

SPIELE 

-  Shorts  Fuse  c 

-  Qriller  c 

-  Finte-  Kam  c 

-  Locxmotion  c 

-  Siisx*  c 

-  te.  Freeze  c 

-  Rnula  One  (Autoremensinulator)  c 

-  The  wild  Buch  c 

-  IWwipUl  c 

-  Soal  of  a  (ktot  c 

-  Freitag  der  13.  c 

-  Secret  Diay  of  Adrian  ktole  c 

-  Yle  are  Kong  Fu  c 

-  Bruce  Lee  c 


19B. — 
19B. — 
198. — 


9.90 

9.90 

9.90 

9.90 

9.90 

9.90 

9.90 

9.90 

9.90 

9.90 

39.- 

38.— 

38. — 

39. - 


rnmoi  irrn  mnv 

LUI  II  U  I  U\  I  II  I A 


Postfach  1461,  7920  Heidenhei«,  Tel.  (07321)  46664 

Bankverb.:  Dresdner  Bank  Heidenheini  Kto.-Nr.:  570142900 
 Postgiroant  Stuttgart  Kto.-Nr.:  2063  95-700 


■  Bounty  Bob  strlkes  bade 

Wirte  gas 

Slapshot 

■  The  Devil's  Crom 

•  fted  Arrows 

■  Socery  Plus 

•  A  View  toa  Kill  (  mit  Nixi  ) 

Wizard  Lair 

Frankie  crashed  cn  Jipiter 

-  Zaxxon 

-  Zargon 

-  Henrtühe 

-  Spy  wrsus  5» 

-  11»  rwrrmting  Stnry 

-  Airwolf 

-  X  Chess  (Cyrus  II) 

-  X  Grand  Prix 

-  X  Boxing 

-  X  (trister  Chase 

-  X  Time  Treck 

-  Hi^wpy  Encanter 

-  Sattle  of  Britain 

-  The  1%  of  the  eploding  Fist 

-  ktoster  of  the  Laips 

-  Itadan  Buper  (Flippersinul.  spitze 

■  Genes  Pack  1  (Schneider) 

-  Games  Pack  2  (Schneider) 

-  Ganes  Pack  3  (Schneider  neu  !!!) 

■  Sipo-  Sport  Gares  1  (Schneider) 

•  Ganes  Pack  4  (Ariola  neu  !!!) 

•  Triple  Backs  (3  Spiele  v.  Firebird) 
They  sold  a  Nllliai  (  4  super  Spiele) 

■  Code  Nane  Hst  II 

Elfte 

hpossible  Nission 

■  High  Rice 

■  Fitting  Warrior 

•  Gof  capes  streng  Hm 

•  Tenxrrolinos 

■  Tales  of  the  Arabian  Ni^it 
Alien  8 

Hn  Orach 
Kni^it  Lore 

•  Daley  Thaipson's  Decathlon 
ftocky  rtcror  Show 

The  Itabbit  (mit  Buch) 

Che  cn  Che 
Lords  of  Midni^it 
Frank  Bnno’s  Boxing 
Pole  Position 
Sofbore  Star 
lte*B- 

Starion  (Ramsinulation  Spitze  !!!!) 


c/d 

c/d 

c/d 

d 

c/d 

c/d 


c/d 


c/d 

c 

c/d 


!!!)  c 

d 


d 

d 

d 

d 

d 

d 

c/d 


c/d 

c/d 


38.- 

49- 

29.-/«.- 

29.-/«.- 

38-/49- 

99.- 

39.-/».- 

45.-755.- 

48.- 

38. - 

38. -/«.- 

29.- 

39. - 
39.- 

25  -/36.- 
39.- 

39. -/«.- 

38. - 
29.- 

39. - 
39.- 
35.- 
39.- 
39.- 
19.90 
87.- 
87.- 
87.- 
68.- 
79.- 
59.— 
«.- 

3B.— /«.— 
68.- 
«.- 
29.- 
35.- 
35- 
29.- 
29.- 
3B.— 
35.- 
39.- 
29.- 
29.- 
«.- 

38.-/«.- 

38.-/«.- 

39.- 

35.- 

38.- 

35.- 
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. Programme 


" . . 


Nach  Starten  des  Programms  erscheint  "Please  Wait”.  Etwa 
fünf  Sekunden  später  erscheint  das  Titelbild.  Nun  kann  man 
das  Spiel  mit  der  jeweiligen  Taste  beginnen  oder  die  Geschwin¬ 
digkeit  ändern  sowie  auch  die  Erklärung  lesen.  Startet  man 
das  Spiel  mit  der  Taste  S,  so  wird  das  Labyrinth  mit  den  An¬ 
zeigen  von  Level,  Leben,  Score  und  Highscore  gezeichnet. 
Bei  diesem  Programm  müssen  Sie  sich  in  die  Seele  eines  Wur¬ 
mes  denken,  der  dazu  verdammt  ist,  in  einem  Labyrinth  alle 
Futterpillen  zu  fressen.  Die  Schwierigkeit  besteht  darin,  daß 
die  Schlange  immer  länger  wird  und  der  Wurm  sich  selber 
nicht  anknabbern  darf. 

Haben  Sie  alle  Futterpillen  gefressen,  so  kommen  Sie  in  die 
nächste  Runde.  Je  nach  Runde  ändert  sich  das  Labyrinth.  Alle 
vier  Runden  kommt  ein  Labyrinth,  welches  nur  zeitweise 
sichtbar  ist.  Nach  dieser  etwas  schwierigeren  Runde  kommt 
eine  Bonusrunde  die  leichter  zu  bewältigen  ist.  Man  hat  drei 
Leben.  Bei  5000,  bei  15000  und  dann  alle  15000  Punkte  be¬ 
kommt  man  ein  Bonusleben. 

Nibbler  kann  mit  Cursortasten,  aber  auch  mit  einem  Joystick 
gespielt  werden. 

Punktewertung: 

Futterpille:  40  Punkte 

Nach  Beendigung  einer  Runde  bekommt  man  200  Level. 

In  der  Zeile  660  kann  entschieden  werden,  ob  man  ein  leichtes 
oder  schweres  Spiel  möchte.  Vergrößert  man  die  Zahl  40,  so 
wird  das  Spiel  leichter;  verkleinert  man  sie,  so  wird  das 
Spiel  schwerer. 

In  der  Zeile  90  kann  die  Anzahl  der  Leben  geändert 
werden. 

Variablenliste: 


Level 

Leben 

Score 

Hi  sco  re 

Geschw 

xx 

yy 

e 

gg 

hh 

b 

g 

h 

dd 

zie 


Schwierigkeitsstufe 

Leben 

Punkte 

Höchste  erreichte  Punktzahl 
Geschwindigkeit 

Die  x-Koordinate  des  Kopfes  der  Schlange 
Die  y-Koordinate  des  Kopfes 
Der  Wert  der  mit  TEST  ermittelt  wird 
Die  x-Koordinate,  die  überprüft  wird  um  das 
letzte  Glied  der  Schlange  zu  löschen. 

Die  y-Koordinate,  die  überprüft  wird  um  das 
letzte  Glied  der  Schlange  zu  löschen. 

Der  Wert  der  mit  TEST  ermittelt  wird 

Die  Koordinate  des  letzten  Gliedes  der 

Schlange 

Die  y-Koordinate  des  letzten  Gliedes  der 
Schlange 

Anzahl  der  gefressenen  Futterpillen 
Anzahl  der  zu  fressenden  Futterpillen 


10  REM  *******«*««*****««•«*«««****** 
20  REM  * 

30  REM  *  NIBBLER 

40  REM  * 

50  REM  *  Winklbauer  Markus 

60  REM  *  Drouotstrasse  10 

70  REM  *  40  20  Linz  Oesterreich 

80  REM  * 

90  REM  *******«*»**«*«««««*****«****« 
100  REM 
110  REM 
120  REM 

130  REM  ****************************** 
140  REM  *  Verzweigung  Titelbild  . .  * 
150  REM  ****************************** 
160  SPEED  INK  10,10 
170  GOTO  2010 

180  MODE  l:level=l:i=0:bt=0 
190  leben =3 
200  GOTO  750 
210  GOTO  1530 

220  REM  **»*****«««****«*«*«****««««** 
230  REM  *  Joystick-  und  * 

240  REM  *  Tastaturabfrage  * 

250  REM  »**«**«*«**««**»*«*»*«*««***** 
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Programme . 


260  jo=J0Y ( 0 ) : IF  jo=2  OR  jo=l  OR  jo=4  TH 
EN  360 

270  IF  INKEY ( 0 ) =0  OR  INKEY(8)=0  OR  INK 
EY ( 2 ) =0  THEN  360 
280  GOTO  260 
290  REM 

300  IF  INKEY ( 0 ) =0  OR  INKEY (8) =0  OR  INKEY 
(1)=0  OR  INKEY (2)  =0  THEN  360 
310  jo= JOY ( 0 ) : IF  jo=2  OR  jo=l  OR  jo=8  OR 
j  0=4  THEN  360 

320  IF  y=-l  THEN  GOTO  1150 
330  IF  y=+l  THEN  GOTO  1230 
340  IF  x=  —  1  THEN  GOTO  1260 
350  IF  x=+l  THEN  GOTO  1290 
360  jo=JOY(0) 

370  IF  y=l  THEN  400 

380  IF  INKEY ( 0 ) =0  OR  jo=l  THEN  y=-l:X=0: 
GOTO  1150 

390  IF  y=-l  THEN  410 

400  IF  INKEY ( 2 ) =0  OR  jo=2  THEN  y=+l:X=0: 
GOTO  1230 

410  IF  x=l  THEN  430 

420  IF  INKEY ( 8 ) =0  OR  jo=4  THEN  X=-l :X=0: 
GOTO  1260 

430  IF  x=— 1  THEN  450 

440  IF  INKEY ( 1 ) =0  OR  jo=8  THEN  x=+l:y=0 
: GOTO  1290 
450  GOTO  1180 

460  REM  ***«*»*****«««*«««***«*«*»*** 

470  REM  *  Zeichnen  des  Kopfes/Musik  * 

480  REM  ***************************** 

490  xx=xx+x: SOUND  4,100,3,4 

500  IF  geschw-nb=0  THEN  520 

510  FOR  geschwi  =1  TO  (geschw-nb) *20 :NEX 

T 

520  yy=yy+y 

530  LOCATE  xx , yy : PEN  2: PRINT  CHR$(hj):PE 
N  1 


540  REM  ***************************** 

550  REM  *  Zeichnen  Des  Rumpfes  * 

560  REM  ***************************** 

570  IF  x=+l  THEN  LOCATE  xx-l,yy:GOTO  610 

580  IF  x=— 1  THEN  LOCATE  xx+l,yy:GOTO  610 

590  IF  y=-l  THEN  LOCATE  xx,yy+l:GOTO  610 

600  IF  y=+l  THEN  LOCATE  xx,yy-l 

610  PRINT  CHR$ ( 201 ) 

620  IF  e=2  THEN  1370 

630  REM  ****************************** 
640  REM  *  Loeschen  des  letzten  Teiles* 
650  REM  ****************************** 
660  IF  RND  <  (level/40+0.05)  THEN  1070 
670  b=TEST (gg+16 , hh) : IF  b=l  THEN  gg=gg+l 
6 : g=g+l : GOTO  1070 

680  b=TEST (gg-16 , hh) :IF  b=l  THEN  gg=gg-l 
6 : g=g~ 1 : GOTO  1070 

690  b=TEST ( gg , hh+16) :IF  b=l  THEN  hh=hh+l 
6 : h=h-l : GOTO  1070 

700  b=TEST ( gg , hh-16 ) : IF  b=l  THEN  hh=hh-l 
6 : h=h+ 1 : GOTO  1070 
710  GOTO  1070 

730  REM  *  Zeichen  definieren  * 

740  REM  ***************************** 

750  PEN  1 : xx= 15 :  yy=2: LOCATE  xx , yy 
760  SC=0:dd=0:b=l 
770  SYMBOL  AFTER  34 

780  SYMBOL  180,24,36,66,165,129,90,60,24 
790  SYMBOL  181,24,60,90,129,165,66,36,24 
800  SYMBOL  182,24,36,82,135,135,82,36,24 
810  SYMBOL  183,24,36,74,225,225,74,36,24 
820  SYMBOL  201,24,36,66,153,153,66,36,24 
830  SYMBOL  200.255,255,255,255,255,255,2 
55,255 

840  SYMBOL  35,255,129,189,189,189,129,25 
5 

850  SYMBOL  37,0,66,36.24,24,36,66,0 
870  REM  *  Bildschirmaufbau  * 


Sie  wollen  uns  ein  Programm  zusenden?  Folgende  Regeln  sollten  Sie  beachten: 


1)  Schicken  Sie  Ihre  Programme  auf 
Kassette  oder  Diskette.  Dabei  mehr¬ 
mals  hintereinander  abspeichern. 

2)  Legen  Sie  eine  ausführliche  Pro- 
grammbeschreibu  ngbei.  aus  der  ein¬ 
deutig  der  Sinn  und  Zweck  des  Pro¬ 
grammes  hervorgeht.  Eine  Varia¬ 
blenliste  ist  sehr  wichtig,  in  ihr 
sollten  alle  im  Programm  definierten 
Variablen  mit  ihrer  Verwendung  auf¬ 
geführt  sein. 

Beispiel:  n$  =  Nachname 
g  =  glücklicher  usw. 

3)  Wenn  Siegleichzeitig  Besitzer  eines 
Druckers  sind,  schicken  Sie  auf  je¬ 
den  Fall  ein  Programmlisting  mit. 

4)  Vergessen  Sie  Ihren  Absender  nicht! 
Vollständige  Anschrift  wenn  möglich 
auch  die  Telefonnummer,  ersparen 
unnötige  Verzögerungen  bei  even¬ 
tuellen  Nachfragen  unsererseits. 

5)  Behalten  Sie  aufjeden  Fall  eine  Ko¬ 
pie  Ihres  Programmes,  unvorherseh¬ 
bare  Umstände,  wie  z.B.  Bandriß  der 


Kassette,  werden  somit  nicht  zur 
Katastrophe. 

6)  Wenn  Sie  sogar  mehrere  Programme 
geschrieben  haben  und  diese  veröf¬ 
fentlichen  wollen,  nehmen  Sie  bitte 
für  jedes  Programm  eine  separate 
Kassette  (mehrmals  abspeichern!). 

Damit  erleichtern  Sie  unsere  Arbeit 
wesentlich  und  eine  schnellere  Bear¬ 
beitung  wird  möglich. 

7)  Versehen  Sie  das  Programm  mit  den 
sehr  wichtigen  REM-Statements. 
Das  fördert  nicht  nur  die  Übersicht 
für  uns  und  unsere  Leser,  sondern 
unterstützt  zusätzlich  das  struktu¬ 
rierte  Programmieren.  Merke:  Auch 
erfahrene  Programmierer  verwenden 
REM-Zeilen.  das  Programm  sollte 
schließlich  jeder  verstehen  und  an¬ 
wenden  können. 

8)  Vermeiden  Sie  möglichst  Variablen¬ 
namen,  wo  leicht  1  und  i  oder  0  und  o 
verwechselt  werden  können.  Varia¬ 
blen  sollten  grundsätzlich  in  Klein¬ 


buchstaben  geschrieben  werden  und 
möglichst  verständlich  sein.  Die 
Variable  butter  sagt  mehr  aus,  als  nur 
bu. 

9)  Bieten  Sie  das  Programm  niemals 
verschiedenen  Verlagen  gleichzeitig 
an!  Mit  der  Veröffentlichung  und  dem 
daraus  resultierenden  Honorar,  ge¬ 
hen  die  Urheberrechte  an  den  Verlag 
über!  Sollte  Ihr  Programm  dann  noch 
in  einer  anderen  Zeitschrift  ab¬ 
gedruckt  werden,  liegt  ein  Verstoß 
gegen  das  Wettbewerbsrecht  vor. 

10)  Jedes  bei  uns  ordnungsgemäß  einge¬ 
gangene  Programm  wird  ausführlich 
begutachtet  und  getestet.  Sie  er¬ 
halten  von  uns  dann  umgehend  Be¬ 
scheid,  ob  Ihr  Programm  veröffent¬ 
licht  wird  oder  nicht.  Wenn  Sie  das 
Programm  nach  unserer  Begutach¬ 
tungzurückhaben  wollen,  legen  Sie 
bitte  der  Einsendung  einen  frankier¬ 
ten  und  adressierten  Rückumschlag 
bei.  Die  Kosten  einer  eventuellen 
Rücksendung  sind  in  jedem  Fall  vom 
Einsender  zu  tragen. 


falls  wir  uns  für  den  Abdruck  Ihres  Programmes  entschieden  haben,  setzen  wir  uns  unverzüglich  mit  Ihnen  in  Verbindung  und  be¬ 
sprechen  Ihr  verdientes  Honorar! 

Übrigens  wäre  es  nett,  wenn  Sie  uns  auch  ein  paar  persönliche  Daten  schreiben  würden  (z.B.  Ihr  Alter,  Tätigkeit,  wie  und  wann  kam 
die  Idee  zu  dem  Programm,  was  alles  machen  Sie  mit  dem  CPC  usw.?).  So,  jetzt  aber  genug  der  Theorie,  mit  fast  unerträglicher 
Spannung  und  Neugier  wartet  Ihre  „Schneider  CPC  international”  auf  Ihre  Beiträge. 

Einsendungen  bitte  an:  Schneider  CPC  International ,  Fuldaer  Straße  6,  3440  Eschwege 
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. Programme 

880  REM 

890  PEN  2: PRINT  CHR$ ( 182 ) ; : PEN  1 : FOR  t=l 
TO  5: PRINT  CHR$ ( 201 ) ; : NEXT 
900  g=21 : h=2 
910  gg=328:hh=376 

920  INK  0,0: INK  1 , 26 : BORDER  0 : PAPER  0 : PE 
N  1 

930  WINDOW  #1,1, 9 ,1,25: PAPER  #1,1:CLS  #1 
940  WINDOW  #2,30,40, 1,25: PAPER  #2,1:CLS 
#2 

950  RESTORE  2200 : FJ=500 : FY=230 
960  READ  WERTX , WERTY : IF  WERTX=-1  THEN  10 
00 

970  PLOT  FJ+ ( WERTX/ 4 ) , FY+ ( WERTY/ 1 . 5 ) , 2 
980  READ  WERTC , WERTE : DRAW  FJ  + (WERTC/4) , F 
Y+ ( WERTE/1 . 5 ) ,2 
990  GOTO  960 

1000  IF  FJ  =500  THEN  FJ=20 : RESTORE  2200 
: GOTO  960 

1010  LOCATE  32, 14 : PRINT"HISCORE" : LOCATE 
32,15: PRINT"  " ; : LOCATE  32,15: PRINT 

HI SCORE 

1020  LOCATE  32, 17:  PRINT  "  SCORE  ".-LOCATE 
32, 18: PRINT"  ";: LOCATE  32.18.PRIN 

T  SCORE; 

1030  LOCATE  2, 17: PRINT"  LEVEL  ";: LOCATE 
2, 18: PRINT"  " ; : LOCATE  2, 18: PRINT  L 

EVEL; 

1040  LOCATE  2, 14: PRINT"  LEBEN  ": LOCATE  2 
,15: PRINT"  ": LOCATE  2, 15: PRINT  LEB 

EN; 

1050  GOTO  210 

1060  REM  ********  Loeschen  *********** 
1070  LOCATE  g,h: PRINT"  "; 

1080  IF  b=l  AND  i=l  THEN  SOUND  l,g*h,5, 
15,1,1: bt=bt+ 1 : GOTO  670 

1090  IF  b=0  OR  b=2  OR  b=3  AND  i=l  THEN  G 
OTO  1490 
1100  bt=0 
1110  GOTO  290 

1120  REM  ***************************** 
1130  REM  *  Bildpunkte  ueberpruefen  * 
1140  REM  ***************************** 
1150  e=TEST  ( xx* 16-8 ,( 25-yy )* 16+24 ): IF  e 
=1  THEN  1470 

1160  IF  e=0  OR  e=2  THEN  y=-l : x=0 : hj=180 : 

GOTO  490 

1170  GOTO  1180 

1180  e=TEST  ( xx* 16-8 ,( 25-yy )* 16+24 ): IF  e 
=0  OR  e=2  THEN  y=-l  : x=0 : hj=180 :GOTO  49 

0 

1190  e=TEST  ( xx* 16-8 ,( 25-yy )* 16-8 ): IF  e 
=0  OR  e=2  THEN  y=+l : x=0 : hj =181 : GOTO  490 
1200  e=TEST  ( xx* 16-24 ,( 25-yy )* 16+8 ): IF  e 
=  0  OR  e=2  THEN  x=-l : y=0 : hj =182 : GOTO  49 

0 

1210  e=TEST  ( xx* 16+8 ,( 25-yy )* 16+8 ): IF  e= 
0  OR  e=2  THEN  x=+l : y=0 : hj =183 : GOTO  490 
1220  GOTO  1470 

1230  e  =  TEST  ( xx *  16-8 ,( 25-yy )* 16-8 ): IF  e= 
1  THEN  1470 

1240  IF  e=0  OR  e=2  THEN  y=+l : x=0 : h j =181 : 

GOTO  490 

1250  GOTO  1180 

1260  e=TEST  ( xx* 16-24 ,( 25-yy )* 16+8 ): IF  e 
=1  THEN  1470 

1270  IF  e=0  OR  e=2  THEN  x=-l : y=0 : h j =182 : 

GOTO  490 

1280  GOTO  1180 

1290  e=TEST  ( xx* 16+8 ,( 25-yy )* 16+8 ): IF  e= 
1  THEN  1470 

1300  IF  e=0  OR  e=2  THEN  x=+l : y=0 : h j =183 : 

GOTO  490 

1310  GOTO  1180 

1320  REM  ***************************** 
1330  REM  *  Futterbille  gefressen  * 
1340  REM  ***************************** 
1350  REM  *  Punkte  Musik  * 


1360  REM  ***************************** 

1370  ENT  1 , 20 , 20 , 1 : e=0 

1380  ENV  1,10,10,1 

1390  SOUND  4,100,10,7,1,1 

1400  score=score+40:dd=dd+l: LOCATE  32,18 
: PRINT  score; :IF  score  =5000  OR  score  =1 
5000  OR  score  =30000  OR  score  =45000  OR 
score  =60000  OR  score  =75000  OR  score  =9 
0000  THEN  3610 
1410  IF  dd=zie  THEN  3140 


1420  IF  score >hiscore  THEN  hiscore  =scor 
e: LOCATE  32, 15: PRINT  hiscore 
1430  GOTO  530 

1440  REM  **************************** 
1450  REM  *  TOT  * 

1460  REM  **************************** 
1470  INK  3, 11: FOR  gh=100  TO  1  STEP  -l:SO 
UND  1,120-gh, 1,15, 8, 1,1: NEXT: SOUND  1,120 
, 75 ,15,0,1,1: FOR  jj=l  TO  2000 : NEXT : i=l : G 
OTO  670 
1480  GOTO  3140 


1490  LOCATE  xx.yy: PRINT"  ";:GOTO  3340 
1500  REM  *************************** 

1510  REM  *  Labyrinth  zeichnen  * 

1520  REM  *************************** 

1530  : PEN  3 

1540  LOCATE  10 , 1 : PRINT"################# 
###" 

1550  LOCATE  10, 2: PRINT"#  ";: LOCATE  22 
, 2 : PRINT  "  #"; 

1560  LOCATE  10. 3: PRINT"#  ############### 
#  #” 

1570  LOCATE  10, 4: PRINT"# 

#" 

1580  LOCATE  10 , 5 : PRINT"##  ###  #  #####  ## 
#  #" 

1590  LOCATE  10 , 6 : PRINT"##  ###  #  #  # 

#" 

1600  LOCATE  10, 7: PRINT"#  #  #  #  #  # 

#  #" 

1610  LOCATE  10, 8: PRINT"#  ######  #  # 

#  #" 

1620  LOCATE  10, 9: PRINT"#  #  ###### 

#  #" 

1630  LOCATE  10 , 10 : PRINT"#  ######## 

#  #" 

1640  LOCATE  10 , 11 : PRINT"#  ####### 

#  #" 

1650mLOCATE  10, 12: PRINT"####  #  #  # 

#  #" 

1660  LOCATE  10 . 13 : PRINT"#  #  #######  # 
#  #" 

1670  LOCATE  10 , 14 : PRINT"#  ####  # 

#  #" 

1680  LOCATE  10 , 15 : PRINT"#  #  #  #  #  # 

#  #" 

1690  LOCATE  10 . 16 : PRINT"#  ######  #  #  #  # 
#  #" 

1700  LOCATE  10 , 17 : PRINT"#  #  #  #  #  # 

#  # 

1710  LOCATE  10, 18: PRINT"#  ##  #  #  #  #  # 

#  #" 

1720  LOCATE  10 , 19 : PRINT"#  ######  # 

#" 

1730  IF  level=l  OR  level  =6  OR  level=  11 
OR  level  =16  OR  level=21  THEN  1740  ELSE 
LOCATE  10, 14: PRINT"#  ####  #  #  #  #" 

1740  IF  level=3  OR  level  =8  OR  level=13 
OR  level=18  OR  level  =23  THEN  LOCATE  10, 
6: PRINT"##  ###  #  #  #  #  #" 

1750  IF  level >5  THEN  LOCATE  10, 4: PRINT"# 
#";: LOCATE  10 , 5 : PRINT"##  #" 

1760  LOCATE  10 , 20 : PRINT"#  #  #  ##### 

##  #" 

1770  LOCATE  10 , 21 : PRINT"#  #  ####  #  # 

#" 

1780  LOCATE  10 , 22 : PRINT"#  #  ## 

##  #” 
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1790  LOCATE  10 , 23 : PRINT"#  ############# 

#  #" 

1800  LOCATE  10 , 24 : PRINT"# 

##" 

1810  LOCATE  10, 25: PRINT"################ 
####" 

1820  REM  ***************************** 
1830  REM  *  Futterbillen  zeichnen  * 
1840  REM  ***************************** 
1850  RESTORE  1890 
1860  zie=42 

1870  READ  i :  READ  o.-IF  i  =  0  THEN  1940 
1880  LOCATE  i  ,  o  :  PEN  2  :  PRINT"7."  :  GOTO  1870 
1890  DATA  14,4,17,4,21,4,26,4,12,6,20,6, 

24.6.16.7.26.7.11.8.18.8.22.8 

1900  DATA  15,9,21,10,11,11,15,11,20,12,2 
8,12,14,13,16,13,19,14,22,14,26,14 
1910  DATA  14,15,24,15,26,15,11,16,20,16, 
15,18,18,19,25,19,11,20,20,20,28,20 
1920  DATA  13,21,23,21,25,21,27,23,13,24, 

18.24.24.24.28.8 
1930  DATA  0,0 

1940  PEN  1 : GOTO  260 

1950  REM  ***************************** 
1960  REM  *  Titelbild  * 

1970  REM  ***************************** 
1980  REM  *  Kleines  Maschinenprogramm  * 
1990  REM  ***************************** 
2000  DATA  33,0,192,17,0,64,1,0,64,237,17 
6,201,33,0,64,17,0,192,1,0,64, 237 ,176,20 
1 

2010  RESTORE  2000 

2020  FOR  Adresse=33000  TO  33023 : READ  Wer 
t : POKE  Adresse, Wert: NEXT 
2030  MODE  1 

2040  REM  ***************************** 
2050  REM  *  Zeichnen  des  Titelbildes  * 
2060  REM  ***************************** 
2070  s=l 

2080  INK  0,0: PEN  0 : PAPER  0 : BORDER  0 
2090  INK  1,0 
2100  INK  2,0 
2110  INK  3,0,26 

2120  LOCATE  13,24: PEN  3 : PRINT"PLEASE  WAI 
T  I  |  1  *• 

2130  x=110 : y=280 

2140  RESTORE  2200 

2150  READ  a , h : I F  a  =  -l  THEN  2340 

2160  PLOT  x+ ( a/s ) , y+ ( h/s ) 

2170  READ  f , g : DRAW  ( f /s ) +X , ( g/s ) +y , 1 
2180  GOTO  2150 

2190  REM  *********  n  *********** 

2200  DATA  0,0,30,100,60,0,30,100,60,0,90 
,  100 

2210  REM  *********  i  *********** 

2220  DATA  90,0,108,60,112,75,115,85 

2230  REM  *********  b  *********** 

2240  DATA  120,0,150,100,120,0,150,0,150, 
0 , 160 , 10 , 160 , 10 , 172 ,50,172,50, 160 , 60 , 160 
,60,138,60 

2250  REM  *********  b  *********** 

2260  DATA  190,0,220,100,190,0,220,0,220, 
0 , 230 , 10 , 230 , 10 , 242 , 50 , 242 , 50 , 230 , 60 , 230 
,60,208,60 

2270  REM  **********  1  ********** 

2280  DATA  256,10,285,100,256,10,260,0,26 

0,0, 275, 0,275, 0,280, 10 

2290  REM  **********  e  ********** 

2300  DATA  302,10,314,55,302,10,310,0,310 
, 0 , 324 , 0 , 324 , 0 , 334 ,10,314,55, 324 , 60 , 324 , 
60 , 334 ,60,340,60, 345 , 55 , 345 , 55 , 342 ,40,34 
2,40, 335 , 35 , 335 ,35,310,35 
2310  REM  **********  r  *********** 

2320  DATA  360,0,374,60,372,47,390,60,390 

,60,405,60,405,60,410,55 

2330  DATA  -1,-1, -1,-1 

2340  RESTORE  2200 : x=x+2 : IF  x>  120  THEN  2 


Achtung! 


Aufgepaßt  und 
mitgemacht! 


Jetzt  gibt  es  den  CPC-Tip  des  Monats! ! 

Gesucht  werden  die  besten  Tips  +  Tricks  für  die  Schneider 
Computer.  Schicken  Sie  uns  alles,  was  Sie  an  nützlichen 
Tips  auf  Lager  haben.  Das  kann  z.B.  eine  kurze  Routine 
sein,  ein  bisher  unentdeckter  Poke-  oder  Call-Befehl  oder 
ein  sinnvoller  Tip  aus  den  Bereichen  Soft-  oder  Hardware. 
In  jeder  Ausgabe  präsentieren  wir  den  besten  CPC-Tip  und 
honorieren  diesen  mit 

S00,-  DM 

Machen  Sie  mit,  vielleicht  ist  Ihr  Tip  schon 
nächstes  Mal  unser  CPC-Tip  des  Monats!  Data  Media 
Einsendungen  bitte  unter  Kennwort  Fuldaer  Str.  6 
»CPC-Tip«  an:  3440  Eschwege 


CPC  -  SOFTWARE  -  CPC 


CPC  -  HARDWARE 

-CPC 

CPC  464  Grün-Monitor 

724,00  DM 

CPC  464  Coulor-Monitor 

1197,00  DM 

Floppy-Station  3"  DD1 

724,00  DM 

CPC  664  Grün-Monitor 

1247,00  DM 

CPC  664  Coulor-Monitor 

1698,00  DM 

CPC  6128  Grün-Monitor 

1435,00  DM 

CPC  6128  Coulor-Monitor 

1890,00  DM 

NLQ  401  Matrixdrucker 

738,00  DM 

PCW  8256  Joyce 

2200,00  DM 

MATRIX-  UND  TYPENRADDRUCKER 
FÜR  DEN  SCHNEIDER  CPC  ZU 
SPITZENPREISEN  (SPEZIALINFO  ANF.) 


Suchen  Sie  professionelle  Anwender¬ 
programme  für  Ihren  CPC? 

INFO  anfordern  (1-  DM  Briefmarken  )  bei: 

HÄNDLERANFRASEN  ERWÜNSCHT  | 


UNICOM-COMPUTERTECHNIK 

PF  210405,  4100  Duisburg  I,  Tel.  0201/337383 
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1 1 •  I •  1 1 1  •  I II  M I •  •  •  I • 1 1 1 1 1 1 1 1 1  • 1 1 1 1 1 1 1  ■  1 1 1 . . . . . . . . . . . . . 1 1 1 ••••• 1 1 1 1 1 1 1 1 • 1 1 1 1 1 1 1 1 1 1 •• 1 1 1 1 1 1 1 1 • 1 1 1 1| 1 1 1 1 • I •••• M • 1 1 1 M 1 1 • I • I • 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 


360 

2350  GOTO  2150 
2360  REM 

2370  LOCATE  13, 24: PRINT" 


2380  INK  3,0 

2390  PLOT  100 , 240 , 2 : DRAW  530, 240: DRAM  53 
0 , 40 : DRAW  100, 40: DRAW  100,240 
2400  LOCATE  12, 12: PEN  2 : PRINT"Geschriebe 
n  von" 

2410  LOCATE  12, 14: PEN  2 : PRINT"WINKLBAUER 
MARKUS" 

2420  PEN  3: LOCATE  12 , 17 : PRINT"0  =  Eingab 
e  Level 


2430  LOCATE  12 , 18 : PRINT"S  =  S  T  A  R  T 

2440  LOCATE  12 , 19 : PRINT"I  =  Erklaerung 

2450  LOCATE  12 , 20 : PRINT"E  =  E  N  D  E 

2460  CALL  33000: GOTO  2480 

2470  CALL  33012 

2480  INK  1,26: INK  2,6: INK  3,11 

2490  a$=INKEY$ 

2500  IF  a$=n"  THEN  2490 

2510  IF  a$="e"  OR  a$="E"  THEN  MODE  2: INK 
0,0: INK  1,26: PEN  1 : BORDER  0 : PAPER  0 : END 
2520  IF  A$="S"  OR  A$="s"  THEN  180 
2530  IF  a$="I"  OR  a$="i"  THEN  2590 
2540  IF  a$="o"  OR  a$="0"  THEN  2880 
2550  GOTO  2490 

2560  REM  **************************** 
2570  REM  *  Erklaerung  * 

2580  REM  **************************** 
2590  MODE  1 

2600  INK  0,0: INK  1,0: INK  2.0: INK  3 , 0 : PEN 
1: BORDER  0 : PAPER  0:CLS 


2610  PLOT  1,1: DRAW  639 , 1 , 3 : DRAW  639,399: 
DRAW  1,399: DRAW  1 , 1 : PLOT  4 , 4 : DRAW  635,4: 
DRAW  635, 394: DRAW  4 , 394 : DRAW  4,4 
2620  PEN  3: LOCATE  9, 2: PRINT"  E  R  K  L  A  E 
RUNG  " : PEN  1 

2630  LOCATE  3,4: PRINT"Bei  diesem  Spiel  m 
uessen  sie  sich  in" 


2640  LOCATE  3 , 6 : PRINT"die  Seele  eines  Wu 
rmes  denken  der  " 


2650  LOCATE  3 , 8 : PRINT"dazu  verdammt  ist, 
in  einem  Laby  -  " 

2660  LOCATE  3 , 10 : PRINT"rinth  alle  Futter 
Pillen  zu  " 

2670  LOCATE  3 , 12 : PRINT"f ressen  .sich  sei 
bst  aber  auf  keinem" 

2680  LOCATE  3 , 14 : PRINT"Fall  anknabern  da 
rf 


2690  LOCATE  3 , 16 : PRINT"Leider  wird  der  W 
urm  immer  laenger 

2700  LOCATE  3 , 18 : PRINT" je  mehr  er  frisst 


2710  LOCATE  3,20: PRINT"Sie  haben  drei  Le 
ben  . " 

2720  LOCATE  3 , 22 : PRINT"Sie  bekommen  bei 
5000,15000  und  dann" 

2730  LOCATE  3 , 24 : PRINT"alle  15000  Punkte 
n  ein  Leben  dazu  ." 

2740  PEN  2: LOCATE  40 , 25 : PRINT" > " ; : INK  0, 
0 : INK  1,26: INK  2, 26,0: INK  3 , 5 : PEN  3 
2750  a$=INKEY$ : IF  a$=""  THEN  2750 
2760  INK  0,0: INK  1,0: INK  2,0: INK  3 , 0 : MOD 
E  1: PAPER  3: PEN  2 : LOCATE  12,2:PRINT"S  T 
E  U  E  R  U  N  G" 

2770  PLOT  1,1: DRAW  639, 1,3: DRAW  639,399 
: DRAW  1,399: DRAW  1 , 1 : PLOT  4 , 4 : DRAW  635,4 
: DRAW  635, 394: DRAW  4 , 394 : DRAW  4.4 
2780  LOCATE  16 , 10 : PRINT" Joystick" 

2790  LOCATE  18 , 14 : PRINT"oder " 

2800  LOCATE  14 , 18 : PRINT"Cursortasten" 
2810  LOCATE  12, 23: PRINT"  SHIFT  druecken 
" ; : INK  0 , 0 : INK  3,26: INK  2,9 
2820  INK  1,26 

2830  IF  INKEY (21) =32  THEN  MODE  1 : INK  0,0 
: INK  1,26: INK  2 , 6 : INK  3, 11: PEN  1 : PAPER  0 


: GOTO  2470 
2840  GOTO  2830 

2850  REM  ********«*•«*«****«»*«***«»« 
2860  REM  *  Eingabe  Level  * 

2870  REM  **************************** 
2880  MODE  0 

2890  INK  5,0: PEN  5: CALL  &BB9C : LOCATE  3,1 
0: PRINT"  Bitte  geben  Sie  " 


2900 
•  • 

LOCATE 

3, 

9: PRINT  " 

2910 

LOCATE 

3, 

11 : PRINT" 

Geschwindigkeit 

2920 

LOCATE 

3, 

12  .-PRINT" 

ein  (  1  -  5  ) 

2930 

LOCATE 

3, 

13: PRINT" 

2940 

LOCATE 

3. 

14: PRINT" 

1  ist  am 

2950 

LOCATE 

3, 

15  .-PRINT" 

schnellsten 

2960 

•  t 

LOCATE 

3, 

16: PRINT" 

2970 

LOCATE 

3, 

17: PRINT" 

Derzeit  ";ges 

chw+1 ; "  " 

2980  LOCATE  3, 18: PRINT" 

•  t 

2990  INK  5,26: CALL  &BB9C 
3000  a$=INKEY$:IF  a$=""  THEN  3000 
3010  IF  a$="l"  THEN  geschw=0 : MODE  1 : GOTO 
2470 

3020  IF  a$="2"  THEN  geschw=l : MODE  l:GOTO 
2470 

3030  IF  a$="3"  THEN  geschw=2 : MODE  l:GOTO 
2470 

3040  IF  a$="4"  THEN  geschw=3 : MODE  1 : GOTO 
2470 

3050  IF  a$="5"  THEN  geschw=4 : MODE  l:GOTO 
2470 

3060  GOTO  3000 

3070  REM  **************«*«««*««««*»«*« 
3080  REM  *  Eine  neue  Runde  * 

3090  REM  «»****«*****««»««****«**«*«** 
3100  REM  *  Bonusleben  * 

3110  REM  ***«***«*****«««*«*«*«*»***«* 
3120  REM  *  Bonuspunkte  * 

3130  REM  ********«««******««»*««»««*** 

3140  INK  3, 11,0: INK  2,6 

3150  level=level+l : IF  geschw-nb>0  THEN  n 
b=nb+0 . 5 

3160  WINDOW  #3,15,25,11,15 
3170  PAPER  #3 , 1 : CLS  #3 
3180  PEN  #3,0: PRINT  #3," 

LEVEL  "; level 

3190  FOR  X= 1  TO  1000: NEXT : INK  3,11 
3200  FOR  bonus=l  TO  100  .- score=score+2*  ( 1 
evel-l ): LOCATE  32, 18: PRINT  score;: SOUND 
1,50,1,4,1,1 

3210  IF  score  >  30000  AND  score  <30018  O 
R  score  >45000  AND  score  <  45019  OR  scor 
e  >75000  AND  score  <75019  THEN  leben=leb 
en+1: LOCATE  2, 15: PRINT  leben : SOUND  1,284 
,200,1 ,3,3 
3220  NEXT 

3230  LOCATE  2, 18: PRINT  level 
3240  LOCATE  15,2:PEN  2:PRINT  CHR$(182);: 
PEN  1 : FOR  t=l  TO  5: PRINT  CHR$ ( 201 );: NEXT 
3250  i=0 

3260  xx=15 : yy=2 : dd=0 : b=l :g=21 : h=2:gg=328 
: hh=376 

3270  SPEED  INK  10,10:ghi=0 
3280  IF  level=5  OR  level=10  OR  level  =15 
OR  level=20  THEN  GOTO  3680 
3290  IF  level=4  OR  level=9  OR  level  =14 
OR  level=19  THEN  INK  3,0, 11: SPEED  INK  10 
0, 100:ghi=l 
3300  GOTO  1530 

3310  REM  ******«*«*»«»*»«*««**««***** 
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3320  REM  *  Leben=Leben-l  * 

3330  REM  *«****«««««**«**•*«*•«***«•* 
3340  leben=leben  -1: SPEED  INK  10,10 
3350  LOCATE  2, 15: PEN  1: PRINT  leben 
3360  IF  leben  =0  THEN  3480 
3370  INK  3,11,0: FOR  x=l  TO  1000:NEXT:IF 
ghi  =  l  THEN  INK  3,0,11  ELSE  INK  3,11 
3380  i=0 : XX=15 : yy=2 : b=l : g=21 : h=2 : gg=328 : 
hh=376 

3390  LOCATE  15,2:PEN  2.-PRINT  CHR$(182);: 
PEN  1 : FOR  t=l  TO  5: PRINT  CHR$ ( 201 ) ; : NEXT 
3400  IF  bt<4  THEN  3420 
3410  GOTO  3440 

3420  bt=0 : IF  level=5  OR  level  =10  OR  lev 
el  =15  OR  level=20  THEN  3680 
3430  GOTO  1530 
3440  GOTO  260 

3450  REM  **********«*****«***»*«**»«« 
3460  REM  *  Game  Over  * 

3470  REM  «***»***«***«******«*««*»«*« 
3480  WINDOW  #3 , 15 , 25 , 1 1 , 15 : INK  2 , 5 , 9 : PEN 
2: PAPER  #3 , 3 : CLS  #3:PRINT#3," 

GAME  OVER” 

3490  FOR  x= 1  TO  2000: NEXT 

3500  rl=0:gl=400:xl=0: y 1=640 

3510  PLOT  1 , rl : DRAW  640 , rl , 0 : PLOT  l,gl:D 

RAW  640, gl ,0: PLOT  xl,l:DRAW  xl, 400: PLOT 

yl ,400: DRAW  yl , 1 

3520  rl=rl+2:gl=gl-2: xl=xl+2 : yl=yl-2 

3530  : IF  gl=198  THEN  3550 

3540  GOTO  3510 

3550  level=l : i=0 : leben=3 

3560  score  =0:ghi=0 

3570  GOTO  2470 

3580  REM  *******«***«««*****««*««»««* 
3590  REM  *  Bonusleben  Musik  * 

3600  REM  ««»»««««*«**«««*««*«**«**««* 
3610  ENT  3 , 1 00 , -2 , 2 : ENV  3 , 1 00 , -2 , 2 : SOUND 
1,284,200,1,3,3 

3620  leben=leben+l : LOCATE  2, 15: PRINT  leb 


en 

3630  IF  dd=zie  THEN  3140 
3640  GOTO  660 

3650  REM  *«««*«»«*«*»««•*•«**«««««*»* 
3660  REM  *  Bonusrunde  zeichnen  * 
3670  REM  **************************** 
3680  PEN  3 

3690  LOCATE  10,1: PRINT" 

•*  . 

3700  LOCATE  10, 2: PRINT"  LOCATE  22 

, 2 : PRINT  "  "; 

3710  FOR  zeile=3  TO  25 : LOCATE  10, Zeile :P 
RINT"  " ; : NEXT 

3720  FOR  spalte=10  TO  29: LOCATE  spalte, 1 
: PRINT"#"; : NEXT 

3730  FOR  spalte=10  TO  29 : LOCATE  spalte, 2 
5: PRINT"#" ; : NEXT 

3740  FOR  zeile=2  TO  24: LOCATE  10, zeile :P 
RINT"#" ; : NEXT 

3750  FOR  zeile=2  TO  24: LOCATE  29, zeile :P 
RINT"#" ; : NEXT 
3760  zeile=3 

3770  LOCATE  28 , 2 : PRINT"#" 

3780  LOCATE  28 , 24 : PRINT"#" 

3790  FOR  spalte  =10  TO  29  STEP  2 : LOCATE 

spalte , zeile : PRINT"#" ; : NEXT 

3800  FOR  spalte  =11  TO  29  STEP  2 : LOCATE 

spalte , zeile+2 : PRINT"#" ; : NEXT 

3810  zeile=zeile+4: IF  zeile>23  THEN  3830 

3820  GOTO  3790 

3830  zeile=4 : PEN  2 


3840  FOR  spalte  =11  TO  28  STEP  2 : LOCATE 

spalte,  zeile:  PRINT"?."  ;  : NEXT 

3850  FOR  spalte  =12  TO  28  STEP  2 : LOCATE 

spalte,  zeile+2  :  PRINT"?."  ;  : NEXT 

3860  zeile=zeile+4: IF  zeile>23  THEN  3880 

3870  GOTO  3840 

3880  zie=90 : PEN  l:GOTO  260 


Sie 

-  programmieren  in  Basic,  Pascal  oder 
Maschinensprache?? 

oder 

-  haben  technisches  Verständnis  und  sind  in  der 
Lage,  Hardware-Erweiterungen  zu  entwickeln? 

oder 

-  kennen  Tips  zum  CPC  464/664/6128  oder  Joyce? 

oder 


-  können  Ihr  Wissen  in  verständlicher  Form 
niederschreiben? 


Sie  Ihr  Können  an  andere  weitergeben? 

Wir 

geben  Ihnen  die  Chance  dazu! 

Haben 

-  Sie  Lust,  aktiv  an  unserer  Fachzeitschrift 
»Schneider  CPC  International«  mitzuarbeiten? 
Zur  Unterstützung  unseres  Redaktions-Teams 
suchen  wir  noch  freiberufliche  Mitarbeiter,  die 
kreativ  und  dabei  selbständig  arbeiten  können. 

Bewerbungen  bitte  an: 

Schneider  CPC  International 
Data  Media  Verlag 
Fuldaer  Straße  6 

_ 1440  Eschwege _ 
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Alles  in  Ordnung? 


Die  wohl  häufigste  Computer-Anwen¬ 
dung  neben  Textverarbeitung  ist  das 
Erfassen  und  Verwalten  von  irgend¬ 
welchen  Beständen.  Ob  das  nun  die 
Schallplatten-  oder  Briefmarkensamm¬ 
lung  ist,  oder  das  Archivieren  von 
Büchern,  Zeitschriften  etc.,  mit  Hilfe  des 
Computers  läßt  sich  peinlich  genau  ein 
mögliches  Chaos  vermeiden.  Natürlich 
benötigt  man  zum  effektiven  Verwalten 
von  Beständen  ein  entsprechendes 
Hilfsprogramm.  Und  genau  zu  diesem 
Punkt  wollen  wir  Ihnen  einige  Hin¬ 
weise  geben. 

Auf  dem  inzwischen  riesigen  Software- 
Markt  für  CPC  Computer  gibt  es  Spe¬ 
zialprogramme  zum  Erfassen  und  Ver¬ 
walten  bestimmter  Bestände.  So  sind 
u.a.  Programme  für  Münzarchivierung, 
Briefmarken  etc.  erhältlich,  die  speziell 
auf  diese  Belange  abgestimmt  sind.  Al¬ 
lerdings  ist  es  bei  diesen  Programmen 
nicht  möglich,  auch  andere  Dinge  als 
vorgesehen  zu  archivieren,  da  die  Pro¬ 
grammstruktur  auf  bestimmte  Punkte 
zugeschnitten  ist.  Das  bedeutet,  für  je¬ 
des  zu  erfassende  Produkt  müßte  ein  se¬ 
parates  Archivierungsprogramm  ange¬ 
schafft  werden,  zweifellos  ein  sehr  ko¬ 
stenintensives  Unterfangen. 

Um  dies  zu  vermeiden,  gibt  es  die  soge¬ 
nannten,  universellen  Dateiprogramme. 
Universell  insofern,  daß  mit  ein  und 
demselben  Programm  die  verschiede¬ 
nen  Bestände  verwaltet  werden  können. 
Der  Vorteil  liegt  auf  der  Hand,  das  Ar¬ 
beiten  mit  einer  universellen  Dateiver¬ 
waltung  ist  wesentlich  kostengünstiger 
als  die  Arbeit  mit  Spezialprogrammen. 


Um  allerdings  dem  Anspruch  »univer¬ 
sell«  gerecht  zu  werden,  müssen  diese 
Dateiprogramme  einige  Voraussetzun¬ 
gen  erfüllen.  Dazu  gehört  eine  frei  defi¬ 
nierbare  Eingabemaske,  die  dem  An¬ 
wender  eine  Anpassung  auf  spezielle 
Bedürfnisse  erlaubt.  In  der  Regel  fragt 
der  Computer  die  Anzahl  der  zu  defi¬ 
nierenden  Datenfelder  ab,  wobei  dem 
Anwender  der  gesamte  Bildschirm  zur 
Verfügung  steht  Diese  Datenfelder 
können  nun  beliebig  bezeichnet  wer¬ 
den,  was  den  Anspruch  universell  ei¬ 
gentlich  erst  ausmacht  So  kann  der  An¬ 
wender  jeder  zu  erfassenden  Produkt¬ 
gruppe  (Bücher,  Programme,  Video 
etc.)  seine  spezielle  Eingabemaske  er¬ 
stellen,  die  als  Grundlage  für  alle  weite¬ 
ren  Bearbeitungen  gilt  So  berechnet 
sich  in  der  Regel  die  Anzahl  der  ins¬ 
gesamt  zu  erfassenden  (möglichen)  Da¬ 
ten  nach  der  Anzahl  der  definierten  Da¬ 
tenfelder.  Es  gilt  also:  Je  weniger  Felder 
in  einer  Eingabemaske  definiert  sind, 
umso  größer  ist  die  Anzahl  der  mög¬ 
lichen  zu  speichernden  Daten.  Die  uni¬ 
verselle  Dateneingabe  ist  allerdings 
nicht  der  einzige  Anspruch,  den  eine 
Uni-Datei  erfüllen  muß.  Da  die  erfaß¬ 
ten  Daten  ja  auch  verwaltet  werden  wol¬ 
len,  müssen  auch  hier  feste  Kriterien 
vorliegen.  So  ist  es  sinnvoll,  die  Einga¬ 
bemaske  als  Bearbeitungskriterium  zu 
übernehmen.  In  der  Praxis  bedeutet 
dies,  daß  nach  jedem  definierten  Feld 
auch  gesucht  bzw.  sortiert  werden  kann. 

Sind  diese  Voraussetzungen  erfüllt, 
kann  ein  Dateiprogramm  zwar  als  uni¬ 
versell  bezeichnet  werden,  besticht  aber 
nicht  gerade  durch  seine  Leistungs¬ 


daten  und  Komfortabilität.  Daher  hat 
fast  jedes  Dateiprogramm  noch  zusätz¬ 
liche  Funktionen  implementiert,  die 
dem  Anwender  das  Arbeiten  mit  dem 
Programm  wesentlich  erweitern.  Da 
wäre  zunächst  eine  Menueführung  zu 
erwähnen,  die  schnelle  und  übersicht¬ 
liche  Bearbeitung  der  Daten  erlaubt. 

Oft  ist  ein  Dateiprogramm  mit  einer 
»Schnittstelle«  zu  einem  Textverar¬ 
beitungsprogramm  ausgestattet.  Dann 
besteht  die  Möglichkeit,  die  mit  dem 
Dateiprogramm  erfaßten  Daten  mit 
Hilfe  des  Textprogramms  zu  bearbeiten 
(z.B.  beim  Erstellen  von  Serienbriefen 
werden  jeweils  nur  die  Anschriften  aus 
dem  Dateiprogramm  eingesetzt).  Diese 
Möglichkeit  dürfte  zwar  im  privaten 
Bereich  nicht  so  interessant  sein,  gilt 
aber  dennoch  als  wünschenswerte  Ein¬ 
richtung.  Im  gleichen  Atemzug  wäre 
dann  auch  die  Möglichkeit  des  Etiket¬ 
tendrucks  zu  nennen,  die  zumindest  ein 
anspruchsvolles  Dateiprogramm  erfül¬ 
len  sollte.  Daß  ein  Dateiprogramm  mit 
einem  deutschen  Zeichensatz  ausge¬ 
stattet  sein  sollte,  dürfte  als  selbstver¬ 
ständlich  gelten. 

Unterschiede  gibt  es  des  weiteren  in  den 
Druckmöglichkeiten  eines  Program¬ 
mes,  eine  Anpassung  an  verschiedene 
Drucker  sollte  möglich  sein.  Eine 
Hardcopy  vom  Bildschirm  ist  zwar 
wünschenswert,  aber  kein  unbedingtes 
Muß  für  ein  Dateiprogramm. 

Das  nächste,  und  eines  der  wohl 
wichtigsten  Kriterien,  ist  die  Geschwin¬ 
digkeit  eines  Programmes  während  der 


Programm 

Datenträger 

Gerät 

Suchkriterien 

Sortierkriterien 

Etikettendruck 

Pro-Dat 

K/D 

464/664/6128 

frei 

- 

ja 

Flexi-Data 

K 

464/664/6128 

frei 

alphab.  o.  numerisch 

- 

Deisys 

D 

464/6128 

frei 

— 

ja 

Datenrem 

K/D 

464/664/6128 

frei 

frei 

ja 

Datei 

K/D 

464/664/6128 

frei 

alphab. 

ja 

■ 

RH-Dat 

D 

464/664/6128/Joyce 

frei 

frei 

ja 

Datei  Star 

D 

464/664/6128 

frei 

frei 

- 

fl 

| 

Datamat 

D 

464/664/6128 

frei 

frei 

ja 

Multidatei 

K/D 

464/664/6128 

frei 

frei 

ja 

1 

1 

dBase  II 

D 

464/664/6128/Joyce 

frei 

frei 

ja 

EMS 

K/D 

464/664/6128 

frei 

frei 

ja 

Profidata 

D 

464/664/6128 

frei 

- 

ja 
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Bearbeitung.  Alleine  dieser  Punkt  läßt 
die  Programme  in  zwei  Gruppen  auf¬ 
splitten: 

-  Schnelle,  und  damit  für  professio¬ 
nelle  Zwecke  geeignete  Dateiprogram¬ 
me. 

-  Langsame,  und  damit  nur  bedingt 


ersetzbare  Programme. 

Da  es  wesentliche  Preisunterschiede 
zwischen  den  einzelnen  Dateiprogram¬ 
men  gibt,  muß  der  Anwender  sorgfältig 
auswählen  und  die  Ansprüche,  die 
»sein«  Programm  erfüllen  soll,  genau 
festlegen. 


Was  man  jedoch  bei  der  Auswahl  eines 
Programmes,  egal  welcher  Art,  unbe¬ 
dingt  beachten  sollte,  ist  das  Hand¬ 
buch.  Daher  haben  wir  in  unserer 
Marktübersicht  das  Kriterium  »Hand¬ 
buch«  mitbewertet. 

(SR) 


dt.Zeichensatz 

Schnittstelle 

Handbuch 

Preis  ca.  DM 

Vertrieb 

Besonderes 

ja 

Pro-Text 
Pro-Cal  c 

XXX 

99,90 

Interstate 

Pro  Dat  wird  mit  Pro-Text  geliefert.  Demo 
Version  erhältlich 

ja 

- 

X  X 

79,- 

Hansesoft 

ja 

Deitex 

XX 

198,- 

EDV-Beratung 

Worms 

Demo-Version  erhältlich, 
Programmanpassung  möglich 

ja 

- 

XX 

68,-/78,- 

V.d.  Zalm  Software 

Programm  wird  ohne  Kopierschutz  ge¬ 
liefert,  dadurch  Anpassungen  möglich. 

- 

- 

X 

39,-/49,- 

Mükra 

- 

- 

X 

79,- 

Integral  Hydraulik 

läuft  unter  CP/M 

ja 

Star  Writer 

XX 

98,- 

Star  Division 

— 

ja 

Textomat 
Textomat  plus 

XXX 

148,- 

Data  Becker 

— 

ja 

- 

X 

59,-/69.- 

Data  Media 

— 

ja 

diverse 

XXX 

299,- 

Markt  +  Technik 

_ 

ja 

diverse 

XXX 

99.- 

Ariolasoft 

integrierte  Kalkulation 

1 — 

ja 

Wordstar 

_ 

138- 

Schneider  Data 

läuft  unter  CP/M 

Basic-Kurs 
Teil  1 1 


Hallo,  Ihr  Basic-Neulinge  und  herzlich 
Willkommen  zur  elften  Folge  des  CPC- 
Basic-Kurses. 

Letzte  Woche  hatten  wir  eine  Übungsauf¬ 
gabe  gestellt,  die  ja  wirklich  nicht  allzu 
schwierig  zu  lösen  war. 

Dieses  Mal  wollen  wir  diese  Aufgabe  kurz 
erläutern  und  uns  danach  an  die  trockene 
Theorie  über  Zufallszahlen  und  deren 
Sinn  in  unserem  kleinen  Spiel  machen. 


Zunächst  jedoch  zur  Aufgabe  vom 
letzten  Mal. 

Sie  wurden  aufgefordert,  den  Rechner 
zu  veranlassen,  bei  einem  »Ball-aus« 
nicht  nur  einfach  Ready  auszugeben. 

Endeffekt  der  Änderung  sollte  sein,  daß 
der  Bildschirm  gelöscht  wird  und  in 
Screenmitte  die  Worte  GAME  OVER 
erscheinen.  Eine  kleine  Hilfestellung 
hatten  wir  schon  gegeben,  als  wir  darauf 
hinwiesen,  daß  das  Beenden  des  Spiels 
in  Zeile  240  stattfindet. 

Tatsächlich  war  es  auch  Zeile  240,  die 
geändert  werden  mußte. 

Stand  vorher  in  Zeile  240: 

240  IF  BALLY  >  12  THEN  END 

so  mußte  bei  unsererÄnderungdas  End 
Statement  entfernt  und  durch  ein  CLS 
ausgetauscht  werden.  Dieser  Befehl 
löscht  den  Bildschirm  und  ist  uns  noch 
in  Erinnerung. 

Nach  dem  CLS  kam  dann  ein  Doppel¬ 
punkt  zum  Zeichen  an  den  Interpreter, 
daß  die  Zeile  noch  weitergeht  und  noch 
weitere  Befehle  kommen.  Der  nächste 
Befehl  positionierte  den  Cursor  in  der 
Mitte  des  Bildschirms  und  hieß 
LOCATE  15,10.  Er  wurde  wiederum 
von  einem  Doppelpunkt  gefolgt.  Dann 
kam  PRINT'GAME  OVER“  gefolgt 
von  Doppelpunkt  und  danach  endlich 
wieder  END,  um  dem  Interpreter  klar¬ 
zumachen,  daß  hier  das  Programm  zu 
Ende  ist. 

Mit  den  Doppelpunkten  haben  wir  fast 
ein  ganzes  Unterprogramm  in  eine 
Zeile  gebracht,  so  daß  das  Ergebnis  der 
Zeile  nunmehr  folgendermaßen  aus¬ 
sieht: 


iiiiniiiimiiiiiiiiiii 
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10  MODE  1 

20  PRINT":########## 

30  PRINT"! 

40  PRINT": 

50  PRINT"! 

60  PRINT": 

70  PRINT"! 

80  PRINT": 

90  PRINT": 

100  PRINT"! 

( 

110  PRINT"; 

1 

120  PRINT"; 

1 

130  PRINT"; 

1 

140  ballx*2 : bally=2 

141  startx=10:starty«l2 

ISO  movex.l :movey=l 

160  LOCATE  ballx , bally 

170  PRINT"  " 

180  ballx. ballx+movex : bally.bally+movey 

190  LOCATE  ballx, bally 

200  PRINT"0" 

210  IF  ballx. 2  THEN  movex.l 

220  IF  ballx=ll  THEN 

movex.-l 

230  IF  bally.l  THEN  novey.l 

235  IF  bally=starty  AND  ballx  .startx  TH 

EN  »ovey.-l 

236  IF  bally=starty  AND  ballx  =startx*l 

THEN  movey.-l 

240  IF  bally  >12  THEN 

CLS: LOCATE  15. 10: PR 

INT"GAME  OVER": END 

310  LOCATE  atartx . starty 

320  PRINT"  " 

330  IF  startx > 1 1  THEN  bewex.-l 

340  IF  startx=l  THEN 

bewex.l 

350  startx=startx»bewex 

360  LOCATE  startx . starty 

370  PRINT"--” 

380  a*. INKEY$. IF  a$«’ 

"  THEN  160 

390  IF  a$="z”  THEN  bewex.-l 

400  IF  aS«"x"  THEN  bewex.l 

410  GOTO  160 

Allerdings  werden  aufmerksame  Beob¬ 
achter  schon  gemerkt  haben,  daß  unser 
Programm  noch  einen  logischen  Feh¬ 
ler  enthält: 

Da  die  Bewegung  des  Balls  immer  im 
gleichen  Winkel  mit  einem  Versatz  von 

1  zu  1  erfolgte,  war  es  gar  nicht  möglich, 
bestimmte  Steine  der  Mauer  auszulö¬ 
schen.  Außerdem  war  der  Bewegungs¬ 
ablauf  in  jedem  Spiel  gleich  und  dement¬ 
sprechend  langweilig. 

Eine  Änderung  dieser  Situation  erfor¬ 
dert,  daß  wir  beim  Aufprall  in  eine  be¬ 
stimmte  Ecke  den  Versatz  des  Balls  auf 

2  zu  1  ändern  und  so  einen  flacheren 
Abprallwinkel  bekommen. 

Bauen  wir  diese  Änderung  jedoch  fest 
ein,  so  fliegt  der  Ball  zwar  mit  einem 
flacheren  Winkel,  aber  das  Ergebnis 
ist  genau  das  gleiche,  es  sei  denn,  daß 
nun  die  Steine  stehenbleiben,  die  vor¬ 
her  gelöscht  wurden. 

Ihre  Aufgabe  ist  es  nun,  den  Rechner 
den  Versatz  zufällig  auswählen  zu  las¬ 
sen.  Dafür  gibt  es  einen  Zufallsge¬ 
nerator,  der  einen  zufälligen  Wert  in  der 
Größe  0  bis  1  in  die  Variable  RND 
schreibt.  Ausprobieren  können  Sie  dies 
mit  folgendem  kleinen  Programm: 

10  FOR  T  =1  TO  10 
20  PRINT  RND 
30  NEXTT 


Wir  nehmen  dazu  einfach  den  Wert  von 
RND  mal  2  und  lassen  ihn  in  eine  Inte¬ 
gerzahl  umwandeln.  Integerzahl  heißt 
hierbei,  daß  alle  Stellen  hinter  dem 
Komma  abgeschnitten  werden  und  die 
Zahl  automatisch  auf-  oder  abgerundet 
wird.  Der  Befehl  hierfür  heißt  INT 
(Wert).  Wenn  wir  nun  den  Wert  von 
RND  mal  2  nehmen,  ergibt  sich  entwe¬ 
der  ein  Wert  größer  1  oder  kleiner  1,  der 
dann  von  der  INT-Funktion  in  den 
Ganzzahlwert  0  oder  1  umgesetzt 
wird. 

Richtig  ausgeschrieben  heißt  unsere 
Zufallsfunktion  also: 

INT(RND*2) 

Diese  Funktion  müssen  wir  nur  noch 
gegen  den  Versatzwert  austauschen,  der 
an  irgendeiner  Stelle  des  Programms  an 
MOVEX  übergeben  wird.  Wir  nehmen 
dazu  gleich  die  erste  Randabfrage  mit 
Versatzänderung  die  wir  finden  und 
zwar  Zeile  210. 

Die  Wertzuweisung  =1  tauschen  wir 
gegen  =INT(RND*2)  aus. 


Unser  Listing  sieht  nun  folgender¬ 
maßen  aus: 


10  MODE  1 

20  PRINT";########## 

30  PRINT"! 

40  PRINT": 

50  PRINT": 

60  PRINT": 

70  PRINT": 

80  PRINT"; 

90  PRINT"! 

100  PRINT"! 

110  PRINT"! 

120  PRINT": 

130  PRINT"! 

140  ballx=2 : bally.2 

141  startx=l0:starty- 

12 

150  movex.l :movey=l 

160  LOCATE  ballx, bally 

170  PRINT"  " 

180  ballx. ballx*movex : bally. bally»movey 

190  LOCATE  ballx, bally 

200  PRINT"0" 

210  IF  ballx. 2  THEN  movex=  INT ( RND*2 ) 

220  IF  ballx.ll  THEN 

movex.-l 

230  IF  bally.l  THEN  movey.l 

235  IF  bally.starty  AND  ballx  .startx  TH 

EN  movey.-l 

236  IF  bally.starty  AND  ballx  =startx+l 

THEN  movey.-l 

240  IF  bally > 12  THEN 

CLS: LOCATE  15, 10: PR 

INT"GAME  OVER": END 

310  LOCATE  startx. starty 

320  PRINT"  " 

330  IF  startx >11  THEN  beuex.-l 

340  IF  startx. 1  THEN 

bewex.l 

350  startx=3tartx+bewex 

360  LOCATE  startx , starty 

370  PRINT"  —  " 

380  a$. INKEYS : I F  a$.‘ 

"  THEN  160 

390  IF  a$="z”  THEN  beuex=-l 

400  IF  a$»"x"  THEN  bewex.l 

410  GOTO  160 

Tatsächlich  ändert  der  Ball  nun  seine 
Bewegungsrichtung  -  wenn  er  den  obe¬ 
ren  Bildrand  erreicht  -  rein  zufällig  und 
alle  Steine  können  entfernt  werden. 


240  IF  BALLY >12  THEN  CLS:LO- 
CATE  15,10:PRINT  “GAME 
OVER“:END 

Alle  Befehle,  die  dort  in  Doppel¬ 
punkten  stehen,  werden  erst  dann  aus¬ 
geführt,  wenn  die  Variable  BALLY  ei¬ 
nen  Wert  größer  12  angenommen  hat. 
Das  komplette  Listing  hatte  nunmehr 
folgende  Form: 


Nach  dem  Start  dieses  kleinen  Pro¬ 
gramms  printet  der  Rechnereine  Reihe 
von  10  Zahlen,  die  alle  unterschiedlich 
voneinander  sind.  Allerdings  liegen 
diese  Zahlen  alle  unter  1  und  haben  9 
Stellen  hinter  dem  Komma.  Da  sich  ein 
Versatz  von  beispielsweise  0.325416829 
auf  dem  Bildschirm  nicht  darstellen 
läßt,  müssen  wir  uns  mit  einem  kleinen 
Trick  weiterhelfen. 


Wie  wir  nunmehr  zählen,  wieviel  Steine 
schon  entfernt  worden  sind,  erfahren 
Sie  nächsten  Monat. 

Das  Ganze  nimmt  nun  schon  langsam 
Formen  an.  Wenn  die  Geschwindigkeit 
des  Spieles  im  Moment  zwar  noch  ein 
wenig  hoch  ist,  so  macht  das  überhaupt 
nichts,  mit  der  Abfrage  wird  das  Spiel 
dann  eine  vernünftige  Geschwindigkeit 
bekommen.  (TM) 


_ 
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Schöne  Briefe  schreiben !  Das  können  sich  jetzt 
endlich  auch  Schneider-Freaks  ohne  weiteres 
leisten.  MitdemneuenTypenraddruckerBrother 
HR-10CP. 

Aber  nicht  nur  sein  Preis  ist  toll.  Auch  was  er  lei¬ 
stet.  Zum  Beispiel :  max.  12  Zeichen  pro  Sekunde 
schnell,  80  Zeichen  Schreibbreite,  2K  Puffer¬ 
speicher,  Bi-Direktionaldruck,  Hoch-  und  Tief¬ 
stellung,  Fettdruck,  Unterstreichautomatik.  Vie¬ 
les  mehr.  Und  daß  er  außerdem  sehr,  sehr  leise 
druckt,  beweist  die  geringe  Geräuschentwick¬ 
lung  von  weniger  als  60  dBA. 


Das 
Modell 
HR-10CP 
ist  direkt  an¬ 
schließbar  an  den  Schneider  Computer  464  - 
Datenkabel  als  Option.  In  der  Grundversion  gibt 
es  den  HR-10  mit  Schnittstellen  Centronics 
Parallel  oderV24  (RS-232C). 

Aber  hallo,  kann  man  auch  zu  seinen  Einsatz-  , 
möglichkeiten  sagen.  So  können  Sie  ihn  mit  sei¬ 
nem  leichten  Gewicht  (6  Kilo)  bequem  am  Trage¬ 
griff  überall  mit  hinnehmen.  Auch  seine  Extras 


kommen  da  noch  mit.  DerTF-10  Formulartraktor 
zum  Beispiel.  Oder  verschiedene  Typenräder  in 
der  praktischen  Brother  Drop-in  Schnellwechsel¬ 
kassette,  die  Ihre  Ausdrucke  immer  wieder  anders 
aber  schön  ins  Bild  setzen.  Fordern  Sie  gleich 
mal  nähere  Informationen  an.  Mit  dem  Coupon. 


Aber  hallo!  Der  Brother  HR-10CP  interessiert  nun 
|  wirklich.  Schicken  Sie  Farbprospekt  und  Bezugs- 
|  Quellennachweis. 

.  Name: _ 


Unverbindliche  Preisempfehlung 

incl.  MwSt.,  Typenrad  und  Schreibband  in  Drop-in 

Schnellwechselkassette. 


brother 

Die  Zukunft  heute 


|  PLZ/Ort: _ 

Ausfüllen,  ausschneiden,  auf  frankierte  Postkarte 
|  kleben  und  senden  an :  Brother  International  GmbH, 
j^lm  Rosengarten  14, 6368  Bad  Vilbel. 
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Als  Spieler  sitzen  Sie  in  einem  Bunker,  der  zum  Schutz  von 
vier  Städten  der  Umgebung  mit  einer  schlagkräftigen  Kanone 
ausgerüstet  ist.  Sie  können  die  Kanone  zwar  nicht  sehen,  da¬ 
für  aber  einen  Lichtpunkt  über  den  Bildschirm  bewegen,  auf 
den  die  Kanone  immer  automatisch  gerichtet  ist.  Die  Kanone 
verschießt  kleine  Sprengladungen,  die  an  der  Position  des 
Lichtpunktes  explodieren.  An  der  Explosionsstelle  schwebt 
noch  einige  Zeit  eine  Wolke.  Soweit  zu  dem  Geschütz,  das 
vom  Spieler  gesteuert  wird.  Die  Steuerung  kann  übrigens 
wahlweise  über  das  Cursortastenfeld  oder  einen  Joystick  er¬ 
folgen.  Bei  Cursorsteuerung  dient  die  COPY-Taste  als 
Feuerknopf. 


Wozu  soll  nun  die  Kanone  gebraucht  werden?  Das  Unglück 
kommt  hier  vom  Himmel,  sprich  vom  oberen  Bild¬ 
schirmrand.  Von  dort  fallen  langsam  eine  bestimmte  Anzahl 
Bomben  auf  die  vier  Städte  nieder.  Die  Bomben  sind  nur  an 
der  Spur,  die  sie  nach  sich  ziehen,  zu  sehen.  Die  Bombe  wird 
wirkungslos,  wenn  sie  in  eine  Explosionswolke  der  Kanone 
fällt.  Der  Spieler  braucht  also  »nur«  dafür  zu  sorgen,  daß  die 
Bomben  immer  in  eine  Wolke  fallen.  Ist  die  Bombe  wirkungs¬ 
los,  verschwindet  auch  die  entstandene  Spur.  Im  Programm¬ 
verlaufkann  man  sich  zum  besseren  Verständnis  einen  klei¬ 
nen  »Schaukampf«  zeigen  lassen. 

Rolf  Jäger 

Variablenliste: 


d,  d%,  x,x%,  wo% 
i.  i$ 

Strahlmax 

Start  (1  -  strahlmax) 

ziel  (1  -  strahlmax) 

posx  (1  -  strahlmax), 
posy  (1  -  strahlmax) 
fakt  (1  -  strahlmax) 
strahl 

stadt  (1-4) 
spalte,  zeile 

wospalte  (1  -  5),  wozeile  (1 

wotime  (1  -  5) 

treffer 

anz 

punkte 

runde 

Start 


Zählervariable 
Eingabevariable 
Höchstzahl  der  Strahlen  bzw. 
Bomben 

Startpunkt  des  Strahles 
(Zufallszahl) 

Zielpunkt  des  Strahles 
(Zufallszahl) 

Koordinaten  der  Bombe/ 
Strahlspitze 
Steigung  des  Strahles 
Strahlenvorschub 
Lage  der  Städte 
Koordinaten  des  Lichtpunktes 
5)  Koordinaten  der  Wolke 
Zeitzähler  der  Wolke 
Zähler  für  »gefallene«  Städte 
Aktuelle  Anzahl  Strahlen  auf 
dem  Bildschirm 
Punktezähler 
Rundenzähler 
Spielzeit 


. . . . . um . . 


10 

11  '  Variabein 

12 

20  DIM  Start (strahlmax) :DIM  ziel(strah 
lmax ) : DIM  posx ( strahlmax ) : 

DIM  posy ( strahlmax ) :  DIM  fakt(strah 


lmax) 

25  DIM  wospalte ( 5) : DIM  wozeile(5) :  DIM 
wotime(5) 


30  DIM  stadt (4) 

50  stadt (1)=20 

55  stadt(2)=160 

60  stadt (3) =420 

65  stadt (4) =560 

75  INK  1,24:  INK  2,10,20:  INK  3,9 

80  SPEED  INK  5,5 

85  SPEED  KEY  3,3 

90  spalte=19:  zeile=18 
95  RETURN 

100  ’ 

101  '  Var  fuer  neues  Spiel  loe 


sehen 


102  ' 

110  ERASE  stadt 
120  ERASE  Start 
130  ERASE  ziel 
140  ERASE  posx 
150  ERASE  posy 
160  ERASE  fakt 
170  ERASE  wospalte 
180  ERASE  wozeile 
190  ERASE  wotime 
195  tref  fer=0 
200  anz=0 
300  RETURN 

500  ’ 

501  '  Hauptprograram 

502  * 

510  MODE  1 
520  GOSUB  60000 
: ’ UDG ' 

530  GOSUB  9000 

: 'Begruessung' 

535  i$=INKEY$ 

:’ Beispiel  J/N  ?' 

540  IF  i$="n"  THEN  RUN  575 
545  IF  i$="j"  THEN  GOTO  550 
547  GOTO  535 
550  GOSUB  10000 

: ' Beispiel ' 

560  i$=INKEY$ 

562  IF  i$="n"  THEN  CLEAR :  GOTO  550 
: 'nochmal  Beispiel  J/N  ?' 

564  IF  i$=”j"  THEN  RUN  575 

566  GOTO  560 

575  strahlmax=0 

577  punkte=0 

580  FOR  runde=l  TO  3 

585  MODE  1 : LOCATE  10 , 10 : PRINT"gleich  ge 
hts  weiter” 

587  GOSUB  62000: GOSUB  10 
590  mun=100 

: 'Munition' 

600  strahlmax=strahlmax+5 

: 'Anzahl  der  Strahlen' 

605  GOSUB  100 : GOSUB  10 

: 'Var  neu  dimensionieren' 

608  LOCATE  10, 10: PRINT" 


1 

t 

610 

strahl =9+runde 

2 

• 

STADT 

: 'Vorschub  der  Strahlen' 

3 

• 

620 

GOSUB  900 

4 

V 

(C)  by  Rolf  Jaeger 

: 'Spielsteuerung' 

5 

« 

625 

IF  tref fer=4  OR  runde=3  THEN  GOTO  6 

6 

• 

Bad  Saeckingen 

60 

: ' Spielabbruch ' 

7 

• 

630 

GOSUB  12000 

8 

• 

: ' Rundenende ' 

9 

GOTO  500 

635 

GOSUB  100 
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Schneider  CPC 
Software-Schnell-Versand 


^  Der  Hit  von  EP/X 
w  jetzt  für  den  SCHNEIDER 

H  KASSETTE  °  ö 
\  DM  36,90 . 


endlich  lieferbar 


<3 


MAUS.  GRAFIKPAKET 
und  BASIC-ERWEITERUNG 

für  alle,  cpcs  139  -  DM 


5=AaYT 


disc  3-  69.90 
KASSETTE  58,90 


CX BdSIC  SO  neue  Befehle  für  den  060 


mmm _ _ _ 

Srapaper  Reset.on  Scrolldovvn  Tprint  Wait 
Grapen  Rightscroll  Scrollup  Unlock  Zip 
Beep  Breakoff  Bscrollup  Cmode  Copychar  Deek  Fill  Hmirror  Lock  Romdeek  Rompeek  Video  Window 
Blank  Breakon  Circle  Colour.off  Crash  Doke  Frame  Inkscroll  Pause  Reset.off  Setcolour  Vmirror  Zrscroll 
Box  Bscrolldown  Clw  Colour.on  Cursor  Disc  Get  Leftscroll  Picture  Ppicture  Sound  Square  Vreset  Zlscroll 

Kassette  49.-  Disc  59.- 


KASSETTE 


A  View  to  a  kill 

47,90 

Action  Biker 

9,95 

Airwulf 

29,00 

Alien  8 

35,90 

Arnheim 

39,00 

Assembler  Kurs  (Sybex] 

64,00 

Battle  of  Midway 

36.90 

Battle  of  Britain 

34.90 

Boulderdash 

38.90 

Brain  Jacks  Superstar 

29,90 

Centre  Court 

31.90 

Chiller 

9.95  ■ 

Code  Name  Mat  2 

49.00  1 

Colour  Star  2 

29  90  1 

Combat  Lynx 

29.90  ■ 

Confuzion 

29,00  ■ 

Copy  Star  2 

39.90  1 

Cyrus  2  Schach 

39.00  ■ 

Danger  Mouse 

38.90  ■ 

Decathlon 

29,00  ■ 

Designer  Star 

59.90  ■ 

Devils  Crown 

29.90  ■ 

Devpac 

29  00  I 

Doppelgänger 

29.90  ■ 

Dragontorc 

34,90  ■ 

Dun  Darach 

37,93  ■ 

Dynamite  Dan 

29,90  ■ 

Eric  the  Viking 

36.90  ■ 

Everyone’s  a  Wally 

33.90  ■ 

Fantastic  Voyage 

34.90  ■ 

Fighter  Pilot 

34,90  ■ 

Fighting  Warrior 

33.90® 

Finders  Keepers 

9,95  J 

Forest  at  the  Worlds  End 
FormulaOne 


Gremlins 

Hacker 

Hard  Hat  Mac 

Herberts  Dummy  Run 

Hexenküche 

Highway  Encounter 

Hypersports 

Kaiser 

Knight  Lore 

Locomotion 

Lords  ol  Midnight 

Macadam  Bumper 

Marsport 

Masterfile 

Master  of  the  Lamps 
Match  Point 

Message  from  Andromeda 

Moonbuggy 

Mr  Freeze 

Multidata 

Multivokabel 

Neverending  Story 

Nightshade 

Nonterraqueous 

One  Man  &  Droid 

On  the  Run 

Pinball  Wizard 

Project  Future 

I  Red  Arrows 


Red  Moon 

Return  to  Eden 

Robin  of  Sherwood 

Rocky  Horror  Show 

Shorts  Füse 

Slapshot 

Sorcery 

Soul  of  a  Robot 

Souls  of  Darkon 

Southern  Belle 

Space  Hunter 

Spy  vs  Spy 

Starion 

Star  -  Moon 

Statistic  -  Star 

Strip  Poker 

Strong  Man 

Tales  of  Arabian  Nights 

Tascopy  deutsch 

Tasprint  deutsch 

Tasword  deutsch 

The  Hobbit 

The  Quill 

They  Sold  a  Million 

Torremolinos 

Warlord 

Way  of  Exploding  Fist 
Wild  Bunch 
Winter  Sports 
Winter  Games 
Wizards  Lair 
Word  Cup 

Word  Series  Baseball 
Yie  ave  Kung  Fu 
Zapp 


DISC  3* 


'Airwolf 
A  View  to  a  Kill 
Com  Pack 
Code  Name  Mat  2 
Cyrus  2  Schach 
Datamat 
Datei  Star 
dBase  2 
Devpac 
3  D  Stuntrider 
3  D  Grand  Prix 
Fantastic  Voyage 
Fibu  Star 
Fighter  Pilot 
Frank  Brunos  Boxing 
Grafik  Master 
Lager  Star 
Lords  of  Midnight 
Masterfile 
Multiplan 
Multivokabel 

Profi  Painter 

Red  Arrows 
Satelite  Warrior 
Slapshot 
Sorcery  plus 
Spy  vs  Spy 
Star  Writer  2 
^.QOj  Star  Moon 

34  90  Statist  s,ar 
Supercalc  2 
Tasword  6128 
Tasword-0 

Tex  Pack 
Textomat 
Textomat  plus 
Wizard  Lair 
Wordstar 


49,00 
59.00 
798,00 
49,00 
49,00 
139,00 
98.00| 
199, 
145,00 
49,00 
49,00 
49,00 
98,00, 
49,00 


nRUCKER 

r^erfcpPA°80P 

yp&s&sr 

\  Panasonic*-*  ^ 


749,001 

1149,001 

1449.001 

798.001 

798.00] 

998.00 

1249.0C 


SZXl*? 
2Le,28K 


' 98,00] 
^98.00 
1598,Ool 

I  c,  ■  «-  w  Ö256  ^°98.00| 

’Hoopy  Dül-  j  2490i00f 

l  ^ortex  Fl  ~s  798i0ol 

VorlexFl^o  ”98,00/ 

49.00B  ZJffMfoetk  7i9ß.Oo/ 

49,00 1  Joy!tickWpRnUfwer><  5q* '  °°f 

!?-00  59sd 


sds>^  Ms-a 


199 
59. 

179. 

i  “«yuard 

49 

49  C&^  9h  pen 

49,00 
49,00 
189,00 
89.00 
79.00 
1 98,00 
96,00 
96,00 
198,00 
139,* 

198,00 
49, 

199,00«^-*,-^ 


99,00 1 

47.90] 

19.90) 
659,oo] 


_  v#  .  1 

Yjr  o 


V. 


* 


Heimcomputer-Shop 


f  Waldeck-Automaten  Vertriebsgesellschaft  mbH 


Bahnhofstraße  10  Telefon 
2870  Delmenhorst  (04221)16464 
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Programme 

640  NEXT 
660  GOSUB  13000 

: 'Spielende' 

700  RUN  575 

900  ' 

901  '  SPIEL-STEUERUNG 

902  ' 

910  FOR  d=l  TO  Strahlmax:  GOSUB  5000:  N 
EXT  Strahlen  definieren' 

920  start=TIME 

: 'Startzeit  setzen 
925  GOSUB  4000 

: ’ Anzeigen ’ 

930  GOSUB  1000 

: ’ Corsor ’ 

940  GOSUB  6000 

: 'Strahlen  zeichnen’ 

950  GOSUB  1000 

: ' Corsor ' 

960  GOSUB  3000 

: 'Wolke  loeschen' 

970  GOSUB  1000 

: 'Corsor ' 

980  GOSUB  4000 

: 'Anzeigen ’ 

990  IF  INT ( ( TIME-start ) /300 ) < 100 

AND  tref  fer <  4  THEN  GOTO  930 
: 'Spielende  pruefen' 

995  RETURN 
1000  ’ 

1010  '  Cursor-Steuerung 

1020  ’ 

1030  i$=INKEY$ 

1040  IF  i$<  > ""  THEN  PLOT  spalte* 16-8 ,( 25 
-zeile) *16+8 , 0 

1050  IF  i$=CHR$ ( 224 )  THEN  GOSUB  1200 
: ' Feuer ' 

1060  IF  i$=CHR$ ( 241 )  THEN  zeile=zeile+l : 

IF  zeile >=20  THEN  zeile=20  :'ab' 

1070  IF  i$=CHR$ ( 240 )  THEN  zeile=zeile-l : 

IF  zeile<  =4  THEN  zeile=4  :’auf' 

1080  IF  i$=CHR$ ( 242 )  THEN  spalte=spalte- 
1 : IF  spalte«  =2  THEN  spalte=2  :' links’ 
1090  IF  i$=CHR$ ( 243 )  THEN  spalte=spalte+ 
1 : IF  spalte >=38  THEN  spalte=38 :' rechts ’ 
1140  PLOT  spalte*16-8, (25-zeile) *16+8, 1 
1150  RETURN 
1200  ' 

1201  '  Feuer 

1202  ' 

1210  LET  mun=mun-l:  IF  raun<=0  THEN  mun=0 
:  GOTO  1300 

1225  SOUND  1 ,50,20,5, , ,5 
1230  PLOT  38*8-1,8*8,1 

1240  DRAW  spalte*16-8, (25-zeile) *16+8, 1 
1245  PLOT  38*8-1,8*8,0 

1247  DRAW  spalte*16-8, (25-zeile) *16+8,0 
1250  GOSUB  2000 
1300  RETURN 
2000  ’ 

2001  ’  Wolke  zeichnen 

2002  ’ 

2010  FOR  wo7.=  l  TO  5 

2015  IF  wozeile (wo7.)=0  THEN  GOTO  2020 

2017  NEXT 

2018  RETURN 

2020  LOCATE  spalte-1 ,  zeile-1 :  PEN  2:PRI 
NT  CHR$ ( 240 ) ; CHR$ ( 241 ) ; CHR$ ( 242 ) 

2030  LOCATE  spalte-1,  zeile  :  PEN  2:PRI 
NT  CHR$ ( 243 ) ; CHR$ ( 244 ) ; CHR$ ( 245 ) 

2040  LOCATE  spalte-1,  zeile+1 :  PEN  2:PRI 
NT  CHR$ ( 246 ) ; CHR$ ( 247 ) ; CHR$ ( 248 ) 

2050  wospalte(wo%)=spalte:  wozeile( wo%) = 
zeile:  wotime(wozi)  =TIME 
2100  RETURN 

3000  ' 

3001  ’  Wolke  loeschen 


3002  ' 

3010  FOR  wo7.=  l  TO  5 
3020  IF  wozeile ( wo%) >0  AND  wotirae( wo7>)  +7 
00 «TIME  THEN  GOTO  3030 
3022  NEXT 
3025  RETURN 

3030  LOCATE  wospalte (wo%) -1 , wozeile(wo%) 
-1: PRINT  CHR$ ( 32 ) ;CHR$(32) ;CHR$(32) 

3040  LOCATE  wospalte( wo%) -1 , wozeile(woE) 
: PRINT  CHR$ ( 32 ) ; CHR$ ( 32 ) ; CHR$ ( 32 ) 

3050  LOCATE  wospalte ( wo£ ) -1 .wozeile (wo%) 
+ 1 : PRINT  CHR$ ( 32 ) ; CHR$ ( 32 ) ; CHR$ ( 32 ) 

3055  wozeile( wo%) =0 
3100  RETURN 

4000  ' 

4001  '  Anzeigen 

4002  ' 

4010  LOCATE  1,25:  PEN  1:  PRINT  "Mun  :";m 
un 

4020  LOCATE  25,25:  PEN  1:  PRINT  "Punkte 
: " ; punkte 

4030  LOCATE  12 , 25 : PRINT"ZEIT  :";INT((TIM 
E-start ) /300 ) 

4100  RETURN 

5000  ' 

5001  '  Strahlen  definieren 

5002  ' 

5015  IF  d  >strahlmax  THEN  RETURN 

5020  LET  Start (d ) = ( INT ( RND* ( 500-100+1 ) +1 

00)  ) 

5040  LET  z=INT(RND*  (4-1  +  D+l) 

5050  IF  z=l  THEN  LET  ziel (d ) =stadt ( 1 ) 
5060  IF  z=2  THEN  LET  ziel ( d ) =stadt ( 2 ) 
5070  IF  z=3  THEN  LET  ziel (d ) =stadt ( 3 ) 
5080  IF  z=4  THEN  LET  ziel (d ) =stadt ( 4 ) 
5090  LET  f akt (d )=( ziel (d ) -start (d ) ) /380 
5100  LET  posy (d ) =400 
5200  RETURN 
6000  ' 

6010  ’  Strahlen  zeichnen 

6020  ' 

6030  LET  anz=anz+0.2:  IF  anz >strahlraax  T 
HEN  anz=strahlmax 
6040  FOR  x7.=  l  TO  anz 

6045  posx  ( x7, )  =  ( start  ( x7, )  +  ( ABS  ( posy  ( x7. )  -4 
00)  *fakt(x7.)  )  ) 

6050  PLOT  posx(x%)  ,  posy  (x7.)  ,  3 

6060  posy(x%)=posy(x%)-strahl 

6065  posx  ( x% )  =  (start  ( x% )  +  ( ABS ( posy  ( x7. )  -4 

00)  *fakt(x7.)  )  ) 

6070  DRAW  posx(x7.)  ,posy(x%)  ,3 

6075  IF  posy  (x7.)  <=40  THEN  GOSUB  8000  :G 
OSUB  7000: GOTO  6080 

6076  IF  TESTR (0,-1)  =2  THEN  GOSUB  7000 :G 
OTO  6080 

6080  NEXT 
6200  RETURN 

7000  * 

7001  '  Strahl  loeschen 

7002  ' 

7005  SOUND  1,300,30,10, , ,5 
7010  WHILE  posy ( x% ) <  400 

7020  posx  ( x% )  =  (start  ( x% )  +  ( ABS  ( posy  ( x7. )  -4 
00)  *fakt(x7.)  )  ) 

7030  PLOT  posx ( x%) , posy (x%) ,0 

7040  posy(x%)=posy(x%)+strahl 

7050  posx (x%) = (start (x%) + ( ABS( posy ( x% ) —4 

00)  *fakt(x7.)  )  ) 

7060  DRAW  posx(x%) ,posy(x%) ,0 
7070  WEND 
7080  LET  d=x7. 

7090  GOSUB  5000 

7100  LET  punkte=punkte+50*runde 
7110  RETURN 
8000  ' 

8001  '  Treffer 

8002  ' 

8030  IF  posx (x%) <90  AN 
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D  Stadt ( 1 ) =20  THEN  Stadt ( 1 ) =stadt (2) : 

LOCATE  2,23:  PRINT  "  " :  treffer= 

treffer+l : SOUND  1 , 4S0 , 100 , 6 , , ,7 
8040  IF  posx(x%)>90  AND  posx(xX)<290  AN 
D  stadt (2) =160  THEN  stadt (2)=stadt(3) : 

LOCATE  10,23:  PRINT  "  " :  treffer= 

treffer+l: SOUND  1 , 450 , 100 , 6 , , , 7 
8050  IF  posx (x%) >290  AND  posx(x%)<490  AN 
D  stadt ( 3 ) =420  THEN  stadt(3)=stadt(4) : 

LOCATE  26,23:  PRINT  "  ":  treffer= 

treffer+l : SOUND  1 , 450 , 100 , 6 , , , 7 


8060  IF  posx(x%) >500  AN 

D  stadt ( 4 ) =560  THEN  stadt ( 4 ) =stadt ( 1 ) : 

LOCATE  35,23:  PRINT  "  " :  treffer= 

treffer+l : SOUND  1 , 450 , 100 , 6 , , , 7 
8080  IF  tref fer=4  THEN  LET  runde=3 : RETUR 
N 

8100  RETURN 

9000  * 

9001  '  Begruessung 

9002  ' 

9005  MODE  1 : GOSUB  62000:  LOCATE  1,1 
9010  PRINT"  WILLKOMMEN" 

9015  PRINT: PRINT 

9020  PRINT"Sie  sind  der  Retter  dieses  L 
andes .  Von" 

9030  PRINT"Ihrem  Bunker  in  der  Mitte 
des  Bild-" 

9040  PRINT"schirmes  muessen  Sie  die  Sta 
edte  gegen" 

9050  PRINT"herabf allende  Bomben  verteidi 
gen . " 

9055  PRINT 

9060  PRINT"Bewegen  Sie  dazu  den  hellen 
Lichtpunkt" 

9070  PRINT"mit  den  Pfeiltasten  oder  dem 
Joystick." 

9075  PRINT"Die  [COPY]  oder  Feuerknopf  1 
oest  einen" 

9080  PRINT"Schuss  zum  Lichtpunkt  aus.  F 
aellt  eine" 

9090  PRINT"Bombe  in  die  entstandene  Wolk 
e.wird  sie" 

9100  PRINT"vernichtet . " 

9105  PRINT 

9110  PRINT"Wenn  Sie  die  Taste  [J]  drueck 
en,  werden" 

9120  PRINT"Sie  einen  kleinen  Ausschnitt 
vom  Kampf" 

9130  PRINT"einer  Ihrer  Vorgaenger  sehen 
.  Moechten" 

9140  PRINT"Sie  nicht,  druecken  Sie  Taste 
[N]" 

9200  RETURN 
10000  ’ 


. . . . Illlll  HIH  Hill . Hl . . 


Programme 


IIIIIIIIMIM 


10001  '  Beispiel 

10002  ' 

10004  MODE  L 

10005  GOSUB  62000 

10009  strahlmax=5: GOSUB  10 


10010  punkte=0 
10015  mun=100 
10025  runde=l 
10030  strahl=10 
10035  anz=0 
10040  RESTORE  11050 
10050  FOR  d=l  TO  5 

: 'Strahlen  def . ' 
10055  READ  start(d),z 


10057  GOSUB  5050 
10060  NEXT  d 

10065  start=TIME 
10070  GOSUB  4000 
10072  RESTORE  11100 
10075  FOR  beispiel=l  TO  40 
10080  READ  i:i$=CHR$(i) :  GOSUB  1040 
: 'Cursor ' 

10090  GOSUB  6000 

10100  READ  i:i$=CHR$(i) :  GOSUB  1040 
: 'Cursor ' 

10110  GOSUB  3000 

10120  READ  i : i$=CHR$ ( i ) :  GOSUB  1040 
: 'Cursor ' 

10130  GOSUB  4000 
10140  NEXT  beispiel 

10150  LOCATE  5,15:  PEN  1:  PRINT"so,  alle 
s  klar  ?  TASTE  [J]" 

10160  LOCATE  5,17:  PEN  1:  PRINT"oder  noc 
hmal  ?  TASTE  [N]" 

10170  RETURN: i$=INKEY$ 

10180  'IF  i$=" j"  THEN  RUN  100 

10190  'IF  i$="n"  THEN  GOTO  10300 

10200  'GOTO  10170 

10300  'MODE  1 

10310  'GOSUB  50 

10320  'GOSUB  62000 

10340  ' start=TIME 

10350  'GOTO  10010 

11000  '  Datas  fuer  Spielablauf  Bei 

spiel 

11050  DATA  100,1,390,1,150,1,450,1,220,1 
11100  DATA  240,240,240,242,242,242,240,2 

40 . 240 . 242 . 242 . 242 . 242 , 

240 . 240 . 240 . 242 . 242 . 242 . 240 . 2 

40 . 240 . 242 . 242 . 242 . 242 . 224 

11110  DATA  243,243,243,243,240,240,240,2 

43 . 243 . 243 . 243 . 243 . 243 , 

243 . 243 . 241 . 243 . 243 . 243 . 241 . 2 
24 

11130  DATA  242,242,242,242,242,242,242,2 

42 . 242 . 242 . 242 . 241 . 242 . 224 

11140  DATA  241,243,243,243,243,243,243,2 
43 , 243 , 243 , 243 , 243 , 243 , 

243 , 243 , 243 , 242 , 240 , 224 
11160  DATA  242,242,242,242,240,242,242,2 

42 . 242 . 242 . 242 . 242 . 224 

11170  DATA  241,241,241,241,243,243,243,2 

43.243.224 

11180  DATA  241,241,243,243,243,243,243,2 

43.243.243.243.224 

11190  DATA  241,240,240,240 
12000  ' 

12001  ’  Rundenende 

12002  ' 

12020  LET  punkte=punkte+ (4-treffer ) * (500 
•runde) 

12030  LOCATE  5, 12: PRINT"  neuer  Punktes 
tand  : "punkte 

12050  LOCATE  1,14: PRINT"  druecken  S 

ie  die  ENTER-Taste,  " 

12060  LOCATE  1 , 15 : PRINT"wenn  Sie  zur  nae 
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-  Das  ist  die  Software  zum  CRC  Magazin  - 
-  Jeden  Monat  neu  - 
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Neue  Rubrik: 
JOYCE 

MIT  DEM  PROGRA 
"NOTIZBLOCK" 


Tip  des  Monats: 
TURBO  DOS 


Im  Test: 

DRUCKER 

DATEIPROCRAMME 


QUICKPLAN  LAYOUTER 
KOMPLETTER  Z«0  ASSE 
MIT  DATA-GENERATOR 


Zwei  Action-Spicle: 


••Nur  als  Kassette  lieferbar" 


DATABOX: 

-  mehr  als  der  übliche  Softwareservice 

-  bringt  ergänzend  sämtliche  Listings  der  jeweiligen  Zeitschrift  und  alle  Programmbeispiele  auf  Kassette 

-  Programme  sind,  soweit  systembedingt  möglich,  auf  allen  drei  CPC-Modellen  lauffähig.  Einzelheiten 
entnehmen  Sie  bitte  der  nebenstehenden  Aufstellung. 

-  erscheint  jeden  Monat  und  trägt  das  Titelbild  des  gleichzeitig  erscheinenden  Heftes. 

-  der  Datenträger  zum  Schneider  CPC  International  enthält  außerdem  jedesmal  ein  zusätzliches 
Bonusprogramm,  das  nicht  im  Heft  abgedruckt  ist. 


Bezugspreise  für  DATABOX:  Kassette  14,-  DM  zuzüglich  3,-  DM  Porto/Verpackung  (im  Ausland  zuzüglich  5,-  DM  Porto/Verpackung) 
Zahlungsweise:  Am  einfachsten  per  Vorkasse  (Verrechnungsscheck)  oder  als  Nachnahme  zuzüglich  der  Nachnahmegebühr 
(in  das  Ausland  ist  Nachnahme  nicht  möglich). 


Schneider  CPC  International 


* 


Postfach  250,  3440  Eschwege 


STOP  -  Bitte  Bestellkarte  benutzen  - 

/ I  L 


iiiii  ii  ii  mihi  ii  min  . . . 


. Programme"" 


Databox  Highlights 
y  Kassetten 

Mit  diesem  Service  entsprechen  wir  dem  Wunsch  vieler  Leser, 
die  Listings  und  Tips  &  Tricks  aus  den  zurückliegenden  Ausga¬ 
ben  3-7/85  von  SchneiderCPC  International  als  Datenträger 
zur  Verfügung  zu  stellen. 

Besonders  interessant  ist  dieser  Service  für  diejenigen  Us 
die  nicht  im  Besitz  der  Hefte  3  -  7  sind.  Jeder  Kassette  liegt  i 
ausführliche  Beschreibung  der  darauf  enthaltenen 
gramme  bei. 

Viel  Software  zum  günstigen  Preis! 

Databox  Highlights  erhalten  Sie,  ebenso  wie  die  al 
Databox- Kassetten,  für  14,-  DM/Stück,  zuzüglich 
Porto  und  Verpackung. 


Spiele 

1.  Lader/Titelbild 

1.  Titelbild/Lader 

2.  Laser  Battle 

2.  Smiley 

3.  Partnertest 

3.  Bücherwurm 

4.  Solitaire 

4.  Sado  (Othello) 

5.  Reaktionstest 

Tips  &  Tricks 

5.  Scroller 

Tips  &  Tricks 

6.  Laufschrift  . . 

6.  Restore 

7.  Bildschirmbewegungen 

7.  Head  Reader 

8.  Profile 

8.  Window 

9.  Textroutinen 

»  9.  An  die  Freude 

10.  Baudrate 

10.  Orgelstimmer 

11.  Zeitdifferenz 

11.  Mergefix 

12.  Dezimalpunkt 

12.  Notizblatt 

13.  Buffer 

13.  Data  Wandler 

14.  High  Score 

14.  Circle 

Anwendungen 

Anwendungen 

15.  Mini  Spreadsheet 

15.  3D-Darstellung 

16.  Kurvendiskussion 

16.  Adressverwaltung 

17.  Screen  Dump 

17.  Vokabelprogramm 

Sofort  lieferbar! 

Bitte  Bestellkarte  benutzen! 


X 


chsten  Runde  bereit  sind” 

12080  i$=INKEY$ :  IF  i$<>CHR$(13)  THEN  GO 
TO  12080 

12100  GOSUB  62000 
12110  RETURN 

13000  ’ 

13001  ’  Spielende 

13002  ' 

13020  IF  tref fer <  4  THEN  LOCATE  5 ,10: PEN 
2:  PRINT  "Sie  haben  alle  drei  Runden  ueb 
erstanden" 

13025  IF  treffer >=4  THEN  LOCATE  2, 10: PEN 
2: PRINT  "Alle  vier  Staedte  sind  zerstoe 
rt" 

13030  LOCATE  5, 13: PEN  2:  PRINT  "Punkte  : 
"punkte 

13050  LOCATE  5, 17: PEN  1:  PRINT  "NOCHMAL 
?  [ENTER]" 

13060  i$=INKEY$ :  IF  i$<>CHR$(13)  THEN  GO 
TO  12080 
13070  RETURN 
60000  ' 

60010  1  UDG 

60020  ’ 

60030  SYMBOL  AFTER  240 

60040  SYMBOL  250,  3,3,35,115,250,171,255 
,255  : ’dorf  1 ’ 

60050  SYMBOL  251,  0,0,1,243,171,249,255, 
255  : ’dorf  2* 

60060  SYMBOL  252,  4,14,27,159,149,31,255 
,255  : ’dorf  3* 

60070  SYMBOL  253,  3,15,31,63,127,127,234 
, 255  : ' kuppe  L ' 

60080  SYMBOL  254,  128,224,240,248,252,25 
2,174,254:  *  kuppe  R' 

60090  SYMBOL  240,  0,7,31,63,127,127,127, 


126 


: ' wolke  1.1* 


60100  SYMBOL  241,  7,31,191,255,249,246,3 
0,255  : * wolke  1.2* 

60110  SYMBOL  242,  128,224,248,252,252,25 
4,254,252: ' wolke  1.3' 

60120  SYMBOL  243,  61,61,63,127,255,239,2 
39,239  : ’ wolke  2.1* 

60130  SYMBOL  244,  255,255,239,199,239,25 
5,255,187: ’ wolke  2.2’ 

60140  SYMBOL  245,  252,120,188,188,190,19 
0,127,255: 'wolke  2.3’ 

60150  SYMBOL  246,  241,255,255,127,63,31, 
15,0  : 'wolke  3.1' 

60160  SYMBOL  247,  199,255,255,255,255,24 
8,240,0  : 'wolke  3.2' 

60170  SYMBOL  248,  254,254,252,252,240,22 
4,0,0  : 'wolke  3.3’ 

61030  KEY  DEF  72,1,240 
61040  KEY  DEF  73,1,241 
61050  KEY  DEF  74,1,242 
61060  KEY  DEF  75,1,243 
61070  KEY  DEF  76,1,224 
61080  RETURN 
62000  ' 

62001  '  Bild 

62003  ' 

62010  PEN  1 

62030  LOCATE  1,24:  PRINT  STRINGS ( &27 , CHR 
$(207)) 

62040  LOCATE  18, 23: PRINT  CHR$ ( 222 ) ; CHR$ ( 
207 ) ; CHRS ( 207 ) ; CHR$ ( 223 ) 

62050  LOCATE  19,22:  PRINT  CHR$ ( 253 ) ; CHR$ 
(254) 

62060  LOCATE  2,23:  PRINT  CHR$ ( 250 ) ; CHR$ ( 
251) ; CHRS (252) 

62070  LOCATE  10,23:  PRINT  CHRS ( 250 ); CHRS 
(251) ; CHRS (252) 

62080  LOCATE  26, 23: PRINT  CHRS ( 250 ); CHRS ( 
251) ; CHRS (252) 

62090  LOCATE  35,23: PRINT  CHRS ( 250 ); CHRS ( 
251) ; CHRS (252) 

62100  RETURN 


1  86  CRC  45 


Bericht1 


In  jüngster  Zeit  ist  die  Diskussion  um  die 
Leistungsfähigkeit  von  Mikroprozesso¬ 
ren  fast  überall  zu  vernehmen.  Immer 
neue  und  leistungsfähigere  Chips  werden 
entwickelt  und  das  zu  Preisen,  von  denen 
man  früher  nur  träumen  konnte.  Die 
Folge  ist  eine  Leistungsexplosion  der 
Heim-  und  Personalcomputer.  Im  fol¬ 
genden  werden  wir  Ihnen  die  bekannte¬ 
sten  Prozessoren  vorstellen  und  Unter¬ 
schiede  aufzeigen. 


8-Bit  Prozessoren 


Der  wohl  am  häufigsten  genutzte  Pro¬ 
zessor  ist  der  Z-80  der  Firma  Zilog.  Er 
wurde  entworfen,  um  den  Prozessor 
8080  der  Firma  Intel  zu  ersetzen  und 
neue,  zusätzliche  Eigenschaften  anzu¬ 
bieten.  Parallel  dazu  wurde  auch  von 
der  Firma  Intel  weiterentwickelt;  es  ent¬ 
stand  der  8085.  Diese  drei  Prozessoren 


8-,  16-  und  32-Bit  Prozessoren  im  Vergleich 


sind  es  auch,  mit  denen  ein  CP/M- 
System  gefahren  werden  kann.  Alle  drei 
Bausteine  sind  mittlerweile  noch  per¬ 
fektioniert  worden,  indem  andere  Tech¬ 
niken  benutzt  wurden  (beispielsweise 
C-MOS  Chips).  Auch  in  der  Beziehung 
auf  Geschwindigkeit  wurde  einiges 
getan. 


Der  Z-80 


Der  Z-80  wurde  ursprünglich  mit  2,5 
Megahertz  getaktet.  Da  dies  jedoch  für 
einige  Anwendungen  zu  langsam  war, 
entwickelte  man  diesen  Chip  weiter  -  es 
entstand  der  Z-80A.  Dieser  Prozessor, 
der  übrigens  auch  in  allen  Schneider 
Computern  Verwendung  findet,  kann 
bis  zu  4  MHz  getaktet  werden.  Zur  Zeit 
wird  dieser  Chip  mit  etwa  1 1,-  DM  ge¬ 
handelt.  Damit  ist  der  Z-80  einer  der 
preiswertesten  Prozessoren  überhaupt. 
Doch  auch  diese  Weiterentwicklung 
reichte  den  Zilog-Technikern  nicht  aus. 

Der  neuentwickelte  Chip  aus  der  Z-80- 
Serie  war  der  Z-80B.  Diesen  Chip,  der 
bis  zu  6  MHz  getaktet  werden  kann,  fin¬ 
det  man  vor  allem  in  Hochleistungs- 
CP/M-Maschinen  wieder.  Durch  trick¬ 
reiche  Schaltungen  ist  es  einigen 
Computerherstellem  gelungen,  den 
Z-80B  mit  bis  zu  7,5  MHz  zu  takten. 
Zum  Ende  der  ständig  vorangetriebe¬ 
nen  Entwicklungen  entstand  der 
Z-80H,  der  eine  Taktfrequenz  bis  10 
MHz  vertragen  kann.  Unseres  Wissens 
wurde  dieser  Chip  jedoch  nicht  in  Serie 
gebaut,  da  zur  gleichen  Zeit  die  Entwick¬ 
lung  der  16-Bit-Prozessoren  mit  weit 
besseren  Leistungsmerkmalen  stark 
vorangetrieben  wurde.  Außer  dem  Z-80 
sind  es  hauptsächlich  zwei  andere  Pro¬ 
zessoren,  die  Furore  machten  und  auch 
heute  noch  anzutreffen  sind. 


Der  6502 


Der  6502-Prozessor  hat  eine  ähnlich 
umfangreiche  Entwicklungsarbeit  hin¬ 
ter  sich,  wie  der  Z-80.  Seine  Verbreitung 
ist  ebenfalls  sehr  hoch.  Er  wurde 
hauptsächlich  in  den  früheren  Com¬ 
putern  der  PET-Serie  von  Commodore, 
im  VC-20,  im  Apple  II  und  in  vielen  an¬ 
deren  eingesetzt.  Sein  interner  Aufbau 
ist  wesentlich  einfacher.  So  besitzt  er  im 
Gegensatz  zum  Z-80  nur  8  Bit  Allge¬ 
meinregister.  Damit  ist  allerdings  nur 
eine  Adressierung  von  256  Bytes  mög¬ 
lich.  Diese  ersten  256  Bytes  nennt  man 
beim  6502  Zero-Pages.  In  diesen  256 
Bytes  können  Adressen  stehen,  die 
dazu  verwendet  werden,  die  adressier¬ 
baren  64  Kilobytes  (65536  verschiedene 
Speicherstellen)  anzusprechen.  Sein 
Stackpointer  ist  ebenfalls  nur  8  Bit  breit, 
so  daß  beim  Programmieren  darauf  ge¬ 
achtet  werden  muß,  daß  kein  Overflow 
auftritt.  Einen  zweiten  Registersatz,  wie 
ihn  der  Z-80  vorweisen  kann,  ist  in  ihm 
ebenfalls  nicht  implementiert.  Aber  er 
hat  nicht  nur  Nachteile.  So  erreicht  er 
bei  halber  Taktfrequenz  gegenüber 
dem  Z-80  den  gleichen  Datendurch¬ 
satz.  Auch  die  Erlernung  seiner  Assem¬ 
blersprache  ist  einfacher,  da  es  beim 
Z-80  etwa  14  mal  soviele  Befehle  gibt 
wie  beim  6502.  Die  Fehlersuche  in  ei¬ 
nem  Programm  wird  dadurch  ebenfalls 
einfacher.  Auch  hier  entstanden 
Weiterentwicklungen.  So  ist  etwa  eine 
C-MOS-Version  verfügbar.  Es  wurden 
außerdem  Chips  entwickelt,  mit  denen 
man  in  der  Lage  war,  den  64K- 
Adressierungsbereich  weiter  auszu¬ 
weiten.  Als  Beispiel  möchten  wir  hier 
die  Chips  6510.  7510  und  8510  nennen. 
Mit  Hilfe  dieser  Chips  ist  es  möglich, 
zwischen  verschiedenen  Speicher¬ 
banken  umzuschalten  bzw.  um  einen 
höheren  Datendurchsatz,  also  eine 
höhere  Taktfrequenz  zu  erreichen.  An¬ 


schließend  möchte  ich  noch  auf  die 
Entwicklung  seitens  Motorola  einge- 
hen. 


Der  6800 


Der6800  war  ähnlich  dem  8088  eine  Ur- 
entwicklung,  der  sehr  schnell  eine  Er¬ 
weiterung  folgte  -  der  6809.  Dieser  Chip 
hat  als  einziger  der  bisher  erwähnten 
Prozessoren  zwei  Akkumulatoren.  Da¬ 
mit  ist  es  diesem  Chip  möglich,  zwei  8- 
Bit-Werte  zu  multiplizieren  bzw.  einen 
16-Bit-Wert  durch  einen  8-Bit-Wert  zu 
dividieren.  Außerdem  ist  der  6809  in  der 
Lage,  das  Mehrplatz-Betriebssystem 
OS,  das  zum  Beispiel  auf  dem  Dragon 
64  implementiert  wurde,  zu  fahren. 
Wenden  wir  uns  nun  den  16-Bit- 
Prozessoren  zu. 


16-Bit-Prozessoren 
Der  TMS  9900 


Dieser  Prozessor  war  der  erste 
serienreife  16-Biter  und  wurde  haupt¬ 
sächlich  im  TI  99  eingesetzt.  Schon  von 
der  Optik  unterscheidet  er  sich  von  den 
herkömmlichen  Prozessoren.  So  ist  er 
etwa  dreimal  so  groß.  Auch  die  Adres¬ 
sierungsmöglichkeiten  dieses  Chips  er¬ 
folgen  nach  einem  gänzlich  anderem 
Konzept.  Er  wird  mit  3  MHz  getaktet, 
kann  aber,  im  Gegensatz  zu  anderen 
16-Bit-Prozessoren.  nur  64KB  ver¬ 
walten.  Als  einziger  der  »älteren«  Pro¬ 
zessoren.  hat  der  9900  eine  Speicher- 
Speicher-Architektur.  Dies  bedeutet, 
daß  direkt  ein  oder  zwei  Byte  von  einer 
Speicherstelle  zur  anderen  gebracht 
werden  können.  Auch  der  Registersatz 
ist  bis  auf  drei  Register  im  Speicher,  und 
nicht  wie  üblich,  im  Chip  imple¬ 
mentiert.  Es  wurde  aber  darauf  geach¬ 
tet.  daß  die  Programme  des  Vorgängers 
TMS  1000  kompatibel  sind. 


1 


* 


\ 

I 
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Bericht 


Der  8088  und  der  8086 


Diese  beiden  Chips  sind  die  meistge- 
nutzten  Prozessoren  im  16-Bit-Bereich. 
Ein  Grund  dafür  ist  sicherlich,  daß 
IBM  in  ihren  PC’s  den  8088  verwendet. 
Der  8088  ist  voll  kompatibel  zum  8086, 
mit  dem  feinen  Unterschied,  daß  beim 
8088  der  Datenbus  nur  8  Bit  breit  ist, 
aber  durch  eine  Multiplex-Funktion 
ein  16-Bit-Datenbus  simuliert  wird.  Der 
8086  läßt  sich  in  seiner  herkömmlichen 
Version  bis  5  MHz  takten.  Ständige 
Weiterentwicklungen  sorgten  dafür, 
daß  inzwischen  sogar  12  MHz-Versio- 
nen  verfügbar  sind.  Da  der  Hersteller 
Zilog  neue  Wege  eingeschlagen  hat,  ist 
es  nur  bedingt  möglich,  die  Programme 
der  Vorgänger  8080  oder  8085  zu  fahren. 
Der  8088  ist  ein  Gefüge  von  nahezu 
29000 Transistoren  in  einem  Chip,  auch 
hier  sind  C-MOS-Versionen  verfügbar. 
Die  Weiterentwicklungen  brachten  dann 
den  80186  und  den  80286  hervor,  die 
zwar  immer  noch  16-Bit-Prozessorcn 
sind,  aber  Mehrplatzfähigkeit  aufwei¬ 
sen.  Vor  kurzer  Zeit  wurde  jetzt  auch 
das  Nachfolgemodell,  der  80386  vorge¬ 
stellt.  Dieser  Chip  ist  ein  reiner  32-Biter 
und  hat  eine  Kernspeicherkapazität, 
wie  sie  selbst  auf  Festplatten  unge¬ 
wöhnlich  ist. 


Der  Z-8000 


Der  Z-8000  der  Firma  Intel  ist  eine 


Weiterentwicklung  des  Z-80,  ohne  al¬ 
lerdings  auf  Kompatibilität  der  Vorgän¬ 
gerprogramme  zu  achten.  Das  heißt, 
ebenso  wie  der  8088  bzw.  8086  kann  der 
für  einen  8-Bit-Prozessor  (8080  bzw. 
Z-80)  erstellte  Maschinencode  nicht  auf 
dem  16-Bit-Prozessor  ablaufen.  Bei  der 
Entwicklung  dieses  Chips  hielten  sich 
die  Techniker  wohl  an  die  Möglichkeiten 
des  Computers  IBM  360/370.  Außer¬ 
dem  gibt  es  zwei  verschiedene  Versio¬ 
nen  dieses  Prozessors.  Zum  einen  die 
nicht-segmentierte  Version,  der  Z-8002. 
Das  bedeutet,  daß  der  Prozessor  nur 
64K,  also  ein  sogenanntes  Segment 
adressieren  kann.  Mit  dem  Z-8001  kön¬ 
nen  1 28  Segmente  ä  64K,  also  insgesamt 
8  Megabyte  adressiert  werden. 


Die  68000-Familie 


Die  am  weitesten  entwickelten  Chips 
der  16-Bit-Generation  wurden  von  der 
Firma  Motorola  vorgestellt.  Dieser  Chip 
kann  bis  zu  16  Megabyte  direkt  adressie¬ 
ren  und  besteht  aus  ungefähr  (daher 
auch  der  Name)  68000  Transistoren.  Er 
arbeitet  intern  mit  32  Bit,  zeigt  sich  aber 
nach  außen  als  16-Biter.  Dieser  Hoch¬ 
leistungschip  findet  Einsatz  im  Apple 
Lisa,  Macintosh,  im  neuen  Atari  520,  in 
Commodores  Amiga  und  vielen  ande¬ 
ren.  Eine  abgemagerte  Version,  der 
68008,  findet  in  Sinclairs  QL  Verwen¬ 
dung.  Diese  Version  hat  den  gleichen 
internen  Aufbau,  arbeitet  allerdings 
durch  Multiplexen  (ähnlich  wie  der 


8088)  nur  mit  einem  8-Bit-Datenbus. 
Die  daraus  folgende  Weiterentwick¬ 
lung  brachte  den  68010  hervor,  der  ein 
32-Biter  mit  einem  16-Bit-Datenbus  ist. 
Vor  kurzer  Zeit  wurde,  ebenfalls  von 
Motorola,  ein  echter  32-Biter  vorgestellt, 
der  68020. 


Die  NS-16000-Familie 


Die  NS-16000-Familie  der  Firma 
National  Semiconductor  stellt  eine 
vollkommen  neue  Generation  von  Mi¬ 
kroprozessoren  dar.  Die  herausragen¬ 
den  Merkmale  dieser  Chips  sind  zum 
einen  die  völlige  Aufwärtskompatibi¬ 
lität  von  einem  Familienmitglied  zum 
anderen.  Andererseits  sind  die  beiden 
CPU’s  NS- 16008  und  NS-16016  zum 
8080-Objektcode  kompatibel,  besitzen 
jedoch  auch  eigene  Maschinensprache. 
Das  Adressiervolumen  reicht  von  64K 
beim  NS-16008  bis  zu  32  Megabyte  bei 
16016  und  16032. 

Dies  war  ein  kurzer  Überblick  der  am 
meisten  verwendeten  Prozessoren.  Der 
Artikel  erhebt  keinen  Anspruch  auf 
Vollständigkeit.  Dies  kann  beim  heuti¬ 
gen  Stand  der  Technik  auch  nicht  gege¬ 
ben  werden,  da  fast  täglich  neue  Pro¬ 
dukte  auf  den  Markt  kommen.  Bleibt  zu 
hoffen,  daß  die  neuen  Chips  noch  ko¬ 
stengünstiger  hergestellt  werden  kön¬ 
nen,  so  daß  auch  Heimcomputer- 
Besitzer  in  den  Genuß  schneller  und 
leistungsfähiger  Prozessoren  kommen 
können.  (HF) 


PROBLEME,  FRAGEN 
ANREGUNGEN...? 


JEDEN  MITTWOCH  ZWISCHEN  14.00  UND  17.00  UHR 
STEHEN  IHNEN  UNSER  HERR  RITTER  (REDAKTION)  UND 
HERR  M0R6EN  (PROGRAMMIERUNG)  AM 


HEISSEN  DRAHT 

ZUR  VERFÜGUNG.  RUFEN  SIE  DOCH  EINFACH  AN. 

Tel.:  05651/8702 


MICA 

0»  CAD-Programm  der  Zahuift,  ie  Preis  eed  Leistung. 

•  Superleichte  Bedienung 

•  Symbolbibliotheken  für  Elektrotechnik  und  Layouterstellung  sind  bereits 
integriert,  weitere  können  erstellt  werden 

•  Symbole  können  verkleinert,  vergrößert,  gedreht  und  gespiegelt  werden 

•  Eine  Arbeits-  und  5  zusätzliche  Ebenen  stehen  dem  Benutzer  stets  zur  Verfügung 

•  Alle  Ebenen  sind  gleichzeitig  auf  dem  Bildschirm,  Drucker  oder  Plotter  darstellbar 

•  Zeichnungen  jeder  Art,  Layouts  usw.  sind  einfachst  zu  erstellen 

•  Maßstabgerechtes  Konstruieren  in  Millimeter  oder  Zoll 

•  Zoomfunktion  für  die  Bilddarstellung 

•  Rasterfunktion 

•  Ausdruck  auf  Drucker  und  Plotter  maßstabgetreu,  verkleinert  oder  vergrößert, 
beim  Plotten  auch  in  Farbe 

•  MICA  ist  in  deutsch,  mit  ausführlichem  Handbuch 

•  MICA  ist  lieferbar: 

alle  Schneider  Computer  mit  Floppy  läuft  unter  CP/M  2.2 

IBM-PC  und  Compatible  läuft  unter  PC-D0S 

PMS  88  läuft  unter  CP/M  86 

MC-Computer  mit  Term  I  läuft  unter  CP/M  2.2 

•  MICA  ist  in  Vorbereitung  für: 

•  Atari  520  ST 

•  Apple  II  und  Compatible 

•  Commodore  128 

•  MICA  wird  geliefert  für  198,-  DM 

per  Nachnahme  zuzügl.  Versandkosten  (5,-  DM) 
oder  nach  Vorkasse  durch  V-Scheck  frei  Haus, 
in  das  Ausland  nur  Vorkasse 

CP/M  ist  das  eingetragene  Warenzeichen  von  Digital  Research. 

PC-D0S  ist  das  eingetragene  Warenzeichen  von  IBM. 

Bitte  geben  Sie  System,  Drucker  an. 

Dies  ist  deshalb  notwendig,  da  es  so  viele  Printer  gibt,  und  eine  Druckerauswahl 
aus  Speicherplatzgründen  nicht  mehr  inplementierbar  ist. 

Alleinvertrieb: 

E  &  C  Rupert  Zellmeier 
DempfaffstraBe  127  a 
8520  Erlangen 
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&  (X  Sound  mit  dem  CPC  Teil  1 1 


Mit  Volldampf  geht  es  weiter  mit  der  gra¬ 
fischen  Darstellung  von  Noten.  Unser 
Programm  erweitern  wir,  wie  bereits  an¬ 
gekündigt,  um  mehrere  Funktionen. 

Zunächst  beschäftigen  wir  uns  mit  dem 
sogenannten  Verlängerungszeichen, 
was  nichts  anderes  als  ein  normaler 
Punkt  ist.  Ein  zu  einer  Note  zugesetzter 
Punkt  verlängert  sie  jeweils  um  die 
Hälfte  ihres  Wertes.  So  wird  z.B.  aus  ei¬ 
ner  halben  Note  mit  zugesetztem  Punkt 
eine  Dreiviertelnote.  Um  diese  Noten¬ 
werte  auf  den  Bildschirm  zu  bringen, 
gibt  es  nun  zwei  Möglichkeiten: 

1.  Man  definiert  alle  Noten  mit  Punkt 
und  legt  sie  auf  die  noch  nicht 
belegten  Symbole. 

jS 

2.  In  einer  Art  Menue  wird  abgefragt,  ob 
die  Noten  mit  oder  oh  ne  Punkt  gezeich¬ 
net  werden  sollen. 

Wir  haben  uns  für  die  letztere  Lösung 
entschieden  und  ab  Zeile  40  ein  Abfra- 
gemenue  eingebunden.  Wie  im  letzten 


Soundkurs  angekündigt,  finden  Sie 
hier  dann  auch  die  Intervalle  wieder. 
Ganz  ohne  Symboldefinition  kommen 
wir  aber  dennoch  nicht  aus.  ln  Zeile  580 
wird  eine  halbe  Note  mit  angedeuteter 
Notenlinie  definiert.  Diese  Note  brau¬ 
chen  wir  später  für  die  Darstellung 
von  Intervallen. 

Doch  zunächst  noch  einmal  zu  der 
Punktierung  von  Noten.  Wenn  Sie  den 
Manuepunkt  P  anwählen,  wird  jeder 
Note  ein  Punkt  zugesetzt.  Nun  muß 
aber  auch  der  entsprechende  Noten¬ 
wert  um  jeweils  die  Hälfte  hochgesetzt 
werden.  Wie  schon  im  Normalmodus 
(N),  lösen  wir  auch  dieses  Problem  mit 
Data-Anweisungen.  Die  Positionen 
und  Werte  für  diese  Noten  finden  Sie  in 
Zeile  700  wieder. 

Wesentlich  komplizierter  dagegen  ver¬ 
hält  sich  die  Darstellung  der  Intervalle. 
Da  hier  bestimmte  Sprünge  vorliegen, 
wird  das  Zeichnen  von  Noten  auf  ver¬ 
schiedenen  Notenlinien  notwendig. 


Dazu  müssen  die  x-  und  y-Positionen 
von  Noten  und  Notenlinien  exakt  aus¬ 
gerechnet  werden. 

Schauen  Sie  sich  dazu  einmal  Zeile 900 
an.  Mit  Hilfe  von  Tag  und  Move  positio¬ 
nieren  wir  die  zu  zeichnenden  Noten: 
Char  enthält  das  Zeichen.  Um  auch 
eine  farbliche  Abstufung  zu  erreichen, 
wird  im  vorhergehenden  Plot-Befehl 
der  Farbstift  festgelegt. 

Um  die  Intervalle  deutlich  zu  kennzeich¬ 
nen.  werden  zwischen  den  einzelnen 
Sprüngen  Trennstriche  gezogen.  Die 
Zeile  690  enthält  diese  Routine. 
Abschließend  müssen  noch  die  Inter¬ 
vallbezeichnungen  entsprechend  auf 
den  Bildschirm  gebracht  werden. 
Dazu  dienen  die  Zeilen  900  -  1010. 

Für  diesmal  soll  es  genug  sein.  Viel¬ 
leicht  machen  Sie  sich  mal  selbst  Ge¬ 
danken.  wie  dieses  Programm  verfei¬ 
nert  bzw.  ausgebaut  werden  kann.  Die 
für  diesen  Teil  versprochenen  Noten¬ 
schlüssel  Alt  und  Tenor  werden  wir  im 
nächsten  Heft  nachholen.  (SR) 


10  SYMBOL  AFTER  199 
20  MODE  1 

30  PRINT”NOTE  PUNKTIEREN  /  NORMAL  /  INTE 
RVALLE  [ P/N/I ] " 

40  PU$=INKEY$ :  IF  PU$  =  '*"  THEN  40 

50  IF  UPPER$ { PU$ )  ="P"  THEN  PU=46:G0T0  90 

60  IF  UPPER$ ( PU$ ) =  "N"  THEN  PU=0:GOTO  90 
70  REM  Zeichnen  der  Notenlinien 
80  GOTO  40 

90  CLS :  FOR  anzahl=5  TO  9 
100  MOVE  0 .400- (anzahl*16) 

110  DRAM  640 , 400- ( anzahl *  16 ) ,3 
120  NEXT  anzahl 
130  FOR  linie  =12  TO  16 
140  MOVE  0 , 400- ( linie* 16 ) 

150  DRAW  640,400-(linie*16) 

160  NEXT  linie 

170  REM  Routine  zum  Zeichnen  des  Violins 

chluessel 

180  FOR  Y=5  TO  10 

190  READ  al.bl ta2,b2,a3,b3,a4,b4,a5,b5,a 
6 , b6 , a7 , b7 , a8 , b8 

200  SYMBOL  254 , al , a2 , a3 , a4 , a5 , a6 , a7 , a8 
210  SYMBOL  255,bl tb2,b3,b4,b5,b6,b7,b8 
220  LOCATE  2,y:PRINT  CHR$ ( 254 ) ; CHR$ ( 255 ) 
230  NEXT 

240  REM  Data's  zum  Zeichnen  des  Violinsc 
hluessel 

250  DATA  0,&70,0,&88, 1 ,4,2,4 

260  DATA  2, 2, 2, 2.2. 2, 2, 2 

270  DATA  2, 2, 2, 2, 2, 2, 2, 2 

280  DATA  2,4,2,8,2,&10,2, &20 

290  DATA  2 , &40 , 1 , &80 , 1 , &80 , 2 , &80 

300  DATA  4 , &80 , &9 , &f c , &12 , &4 , &24 , &82 

310  DATA  &44 , &82 , &48 , &81 , &88 , &81 , &90 , &81 

320  DATA  &90 , &81 , &88 , &81 , &88 , &81 , &48 , &82 

330  DATA  &20 , &86 , &20 , &84 , &10 , &88 , 8 , &88 

340  DATA  7 , &f 0,0, &80 , 0 , &80 , 0 , &80 

350  DATA  0 , &80 , 0 , &80 , 0 , &80 , 0 , &80 

360  DATA  &lf ,&80,&3f ,&80,&lf ,&80,&f , &80 

370  REM  Routine  zum  Zeichnen  des  Bassssc 

hluessel 

380  FOR  y=13  TO  15 

390  READ  al ,bl ,a2,b2,a3,b3,a4,b4,a5,b5,a 
6 , b6 , a7 , b7 , a8 , b8 

400  SYMBOL  254 , al , a2 , a3 , a4 , a5 , a6 , a7 , a8 
410  SYMBOL  255,bl,b2,b3,b4,b5,b6,b7,b8 
420  LOCATE  2 ,y: PRINT  CHR$ ( 254 ) ; CHR$ ( 255 ) 
430  NEXT 


440  REM  Data's  zum  Zeichnen  des  Bassschi 
uessel 

450  DATA  7 , &80 , &18 , &e0 , &20 , &60 , &20 , &36 
460  DATA  &20 , &36 , &20 , &30 , &lc , &38 , &lc , &38 
470  DATA  &lc , &38 , 8 , &30 , 0 , &36 , 0 , &36 
480  DATA  0 , &30 , 0 , &70 , 0 , &60 , 0 , &60 
490  DATA  0 , &c0 , 1 , &80 , 3 , 0 , 6 , 0 
500  DATA  &c ,0,&18,0,&10,0, &20 , 0 
510  REM  EINSETZEN  DER  NOTEN 
520  SYMBOL  200 ,0,0,0,0,28,36,36,56: ' 4/4 
530  SYMBOL  201 , 4 , 4 , 4 , 4 , 28 , 60 , 120 , 1 12 : ' 1/ 
1 

540  SYMBOL  202 ,4,4,4,4,28,36,36,56: ' 2/4 
550  SYMBOL  203 , 6 , 5 , 5 , 4 , 12 , 28 , 60 , 56 : ’ 1/8 
560  SYMBOL  204 , 6 , 5 , 6 , 5 , 29 , 60 , 120 , 1 12 : ' 1 / 
16 

570  SYMBOL  206,2,2,2,6,10,127,18,30 

580  SYMBOL  205 ,7 , 5 , 6 , 5, 30 , 61 , 120 , 112: ' 1/ 

32 

590  IF  FLAG  THEN  670 

600  RESTORE  610: FOR  T  =  1  TO  6 : READ  NX , N 
Y , NO : LOCATE  NX , NY : PRINT  CHR$ ( NO ) ; CHR$ ( PU 
) :NEXT 

610  DATA  8,8,200,14,8,202,18,8,201,22,8, 
203 ,26,8, 204 ,32,8, 205 

620  IF  PU=46  THEN  RESTORE  650  ELSE  RESTO 
RE  640 

630  FOR  T  =  1  TO  6 : READ  BX , BY , BZ$ : LOCATE 
BX.BY: PRINT  BZ$:NEXT 
640  DATA  7,11,4/4,13,11,2/4,17,11,1/4,21 
,11,1/8,25,11,1/16,31,11,1/32 
650  DATA  7,11,6/4,13,11,3/4,17,11,3/8,21 
,11,3/16,26.11, 3/32 ,32,11, 3/64 
660  LOCATE  1 , 24 : END 

670  PLOT  1,1, 2: TAG: RESTORE  710: FOR  T=  1 
TO  16: READ  MX , MY , CHAR : MOVE  MX, MY: PRINT  C 
HR$ ( CHAR ) ; : NEXT : TAGOFF 

680  RESTORE  720 : FOR  T=  1  TO  7 : READ  DAX : P 
LOT  DAX+ 10 , 320 : DRAW  DAX+ 10 , 257 , 1 : NEXT : 
690  LOCATE  4 , 1 1 : PRINT"PRIM  TERZ 

QUINTE  SEPTIME" 

700  LOCATE  4, 3: PRINT"  SEKUNDE  QU 

ARTE  SEXTE  OKTAVE" 

710  DATA  60,258,206,91,258,206,133,258,2 
06,164, 263 , 202 , 208 , 258 , 206 , 239 , 267 , 202 , 2 

83 . 258 . 206 . 314 . 275 . 202 . 358 . 258 . 206 . 389 . 2 

82 . 202 . 433 . 258 . 206 . 464 . 290 . 202 . 508 . 258 . 2 
06 , 539 , 298 , 202 , 583 , 258 , 206 , 614 , 306 , 202 
720  DATA  106,179,264,329,404,479,554 
730  LOCATE  1 , 24 : END 
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CPC-Leser  wählen  die  Software 


In  den  letzten  Monaten  erschien  eineunüberschaubare  Vielfalt  neuer  Software  für  die  CPC's.  Grund  genug  für  Sie,  liebe 
Leser,  gemeinsam  mit  uns  die  CPC-Software  des  Jahres  zu  ermitteln.  Wir  suchen  die  Top-Programme  des  Jahres  1985 
aus  den  Bereichen: 


Anwendungen  Adventures  Spiele 


Wenn  Sie  sich  an  dieser  Aktion  beteiligen  wollen,  senden  Sie  uns  pro  Sparte  drei  Vorschläge  zu,  die  Sie  bitte  in  der 
gewünschten  Rangfolge  auf  eine  ausreichend  frankierte  Postkarte  schreiben. 

Einsendungen  bitte  an: 

Schneider  CPC  International 
Fuldaer  Straße  6 
3440  Esehwege 

Außerdem  können  Sie  bei  der  Aktion  Software  ’85  auch  etwas  gewinnen,  denn  jede  Einsendung  nimmt  an  unserer  Schluß¬ 
verlosung  teil.  Dabei  gibt  es  folgende  attraktive  Preise  zu  gewinnen. 

1.  Preis:  Ein  Softwarepaket  im  Wert  von  300,-  DM 

2.  Preis:  Ein  Softwarepaket  im  Wert  von  150,-  DM 

3.  Preis:  Ein  Softwarepaket  im  Wert  von  100,-  DM 
4-10  Preis:  je  eine  Softwarekassette 

Die  Gewinner  werden  in  einer  der  nächsten  Ausgaben  der  CPC  International  veröffentlicht.  Der  Rechtsweg  ist  ausge¬ 
schlossen. 


Einsendeschluß  ist  der  25.01.1986 


Noch  ist  Zeit,  bei  unserem  CPC-Grafikwettbewerb  mitzumachen! 

Die  mit  unserem  CAP-Programm  aus  Heft  12/85  erstellten  Grafiken  senden  Sie  bitte  auf  Datenträger  ein.  Fügen 
Sie,  wenn  möglich,  bitte  eine  Hardcopy  Ihrer  Grafik  bei. 

Der  Wettbewerb  läuft  noch  bis  31.01.86  und  es  gibt  Superpreise  zu  gewinnen!  (1.  Preis:  1  Joyce  Computer). 


PS:  Falls  Sie  Ihren  Datenträger  zurück  haben  möchten,  legen  Sie  Ihrer  Einsendung  bitte  einen  adressierten  und 
frankierten  Rückumschlag  bei. 


stimmte  Basiccompiler.  Weiterentwicklung  des  bekannten^BffH^^^f 
und  bewährten  ISSCOM  (Zitat  CHIP:  Wohl  das  wichtigste 
Programm  für  den  Schneider  überhaupt),  max  Geschwindig^^^^^^® 
keitssteigerung  bis  100  mal.  ^ 

SUPER  PAC  80  130,-  DM  (Cass/Disk) 

Leistungsfähiges  Z-80  Entwicklungssystem  bestehend  aus  speicherunabhän¬ 
gigem  Macroassembler,  zusätzlichem  Editor,  Möglichkeit  der  Verarbeitung 
von  mit  Textsystemen  erstellten  Sourcefiles,  Disassembler  mit  kombiniertem 
Reassembler,  Monitor  mit  Singlestepper,  Directassembler  usw.  Die  Program¬ 
me  können  kombiniert  werden. 

FÖRTH  78,-  DM  (Cass) 

Programmiersprache  mit  333  Befehlen,  unterstützt  hochauflösende  Graphik, 
Sound  usw.  Mit  umfassender  Anleitung  und  Einführung  in  die  Programmier¬ 
sprache  Forth. 


Entwickeln  Sie  Ihr  eigenes  Abenteuerspiel  ohne  die  aufwendige  Programmierung,  denn  dies 
erledigt  unser  komfortabler  Adventurewrighter.  Sie  entwickeln  lediglich  den  Plan  der  Räume 
und  die  Liste  der  Personen  im  Dialog  mit  dem  Computer.  Ein  äußerst  kreatives  und  viel¬ 
seitiges  Programm. 

OTHELLO  39,-  DM  (Cass/Disk) 

Überragendes  Othello  (Reversi)-Programm  mit  6  wählbaren  Spielstufen.  Auf  höchster  Spielstufe 
nahezu  unschlagbar. 


Fordern  Sie 
den  Gesamtprospekt 
(kostenlos)  an! 


UNICON 


99,- 


Datenkommunikationspaket:  Für  Mailbox  und  andere  User. 


Lieferumfang: 


Software  (Cassetten  +  Diskettenversion) 
ausführliche  Dokumentation 
anschlußfertige  Verbindung  zu  Akustikkopplern 


Floppy  und  Drucker  gleichzeitig  anschließbar,  Dialoggesteuerte  Parameterveränderung,  voll  -  halb 
duplex,  Abspeichern  auf  Cass/Disk.  Übertragen  von  Programmen  Hex-ASCII,  incl.  folgenden 
Dienstprg.:  Textverarbeitung,  Basicerweiterung,  deutscher  Zeichensatz,  Maus-Simulation  über 
Joystick  oder  Tasten. 

Alle  Produkte  sind  auf  allen  Schneider  Computern  (464,  664,  6128)  lauffähig.  Die  CPC  464  Pro¬ 
gramme  werden  auf  Cassette  geliefert.  Die  Programme  für  den  CPC  664  und  CPC  6128  werden  auf 
Disk  (Mehrpreis  15,-  DM)  ausgeliefert.  Erhältlich  auch  bei  Ihrem  Fachhändler. 


- Software - 
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. Hardware . 


Matrixdrucker  mit  NLQ-Schriftbild 


Schönschriftqualität  (NLQ)  scheint  sich 
zunehmend  auch  bei  Matrixdruckern 
durchzusetzen.  Waren  bisher  neben  Ty¬ 
penraddruckern  nur  wenige  Matrix¬ 
printer  mit  dieser  Möglichkeit  ausgestat¬ 
tet,  so  wird  dieser  Trend  nun  auch  bei 
Matrixdruckern  der  unteren  Preisklasse 
konsequent  durchgesetzt.  Auf  dem  CPC- 
Prüfstand  mußten  diesen  Monat  drei 
Drucker  der  verschiedensten  Preisklas¬ 
sen  ihre  Leistungsfähigkeit  unter  Beweis 
stellen. 


Brother  M-1509 


Mit  dem  M-1509  präsentiert  sich  ein 
optisch  und  technisch  ansprechender 
Matrixdrucker  mit  enormen  Leistungs¬ 
daten.  Auffallend  ist  zunächst  das 
flache  Design,  das  den  M-1509  rein 
optisch  zu  vielen  Computer-Systemen 
»kompatibel«  macht.  Ausgestattet  mit 
Centronics  sowie  V.24-Schnittstelle, 
läßt  er  sich  problemlos  an  jedes  Com¬ 
putersystem  anpassen.  Der  1509  druckt 
mit  einer  Geschwindigkeit  von  180 
Zeichen/Sekunde  und  erreicht  auch  im 
NLQ-Druck  beachtliche  45  Zeichen/ 
Sekunde.  Fest  eingebaut  ist  ein  IBM- 
und  ein  Epson-Modus,  der  jeweils  völ¬ 
lige  Kompatibilität  herstellt.  Des  weite¬ 
ren  bietet  der  1509  eine  Download- 
Funktion,  mit  der  selbstdefinierte  Zei¬ 
chensätze  geladen  werden  können.  Für 
den  Ausdruck  stehen  Schriftarten  wie 
PICA,  ELITE,  komprimierte  und  ver¬ 
größerte  Schrift,  Fett-  und  Schatten¬ 
druck,  Doppelanschlag.  Hoch-/Tief- 
stellen  sowie  Kursiv-  und  Proportio¬ 
nalschrift  zur  Verfügung.  Beim  Druck 
wird  eine  Geräuschbelastung  von  unter 
58dB  erreicht,  was  auch  professionellen 
Ansprüchen  (etwa  Einsatz  in  einem 
Großraumbüro)  genügt.  Die  oft  ge¬ 
fürchteten  DIP-Schalter  zum  Um¬ 
schalten  der  Zeichensätze  (insgesamt 
16)  sind  beim  M-1509  erfreulich  leicht 
zugänglich.  Der  Drucker  muß  nicht, 
wie  bei  einigen  anderen  Modellen, 
»auseinandergebaut«  werden.  Der  ein¬ 
gebaute  3KB-Pufferspeicher  ermög¬ 
licht  konstantes  Arbeiten,  da  beim 
Druckvorgang  der  Rechner  nicht  blok- 
kiert  ist.  Optional  läßt  sich  der  Puffer 
auf  16KB  erweitern.  Als  weitere  Zusätze 
gibt  es  eine  automatische  Einzelblatt¬ 
zuführung  und  ein  Nachrüstmodul  mit 
weiteren  Schriftarten.  Mit  diesem  Mo¬ 
dul  sind  dann  die  NLQ-Schriftarten 
Gothic,  Quadro  und  Anelia  PS 
verfügbar. 

Alles  in  allem  stellt  der  M-1509  einen 
optisch  ansprechenden  und  technisch 
hochwertigen  Drucker  dar,  der  zudem 
leicht  zu  bedienen  und  für  viele  Com¬ 
puter  geeignet  ist.  Der  Preis  von  ca.  DM 
1750,-  (incl.  MwSt)  ist  gerechtfertigt, 
läßt  den  M-1509  jedoch  in  die  obere 
Preiskategorie  für  Matrixdrucker  rut¬ 
schen.  Aufgrund  des  Preis-/Leistungs- 
verhältnisses  wird  der  1509  vor  allem 


dort  interessant,  wo  Schnelligkeit  und 
gutes  Schriftbild  gefragt  ist 


CPA-80  GS 


Epson  FX-85 


Mit  dem  FX-85  stellt  Epson  das  Nach¬ 
folgemodell  des  FX-80  vor.  Die  wohl 
größte  Neuerung  ist  die  NLQ-Fähig- 
keit,  die  endlich  auch  dem  Epson  ein 
angenehmes  Schriftbild  beschert.  Al¬ 
lerdings  ist  es  nicht  möglich,  alle  Schrift¬ 
arten  mit  NLQ  auszudrucken.  An 
Schriftarten  stehen  PICA,  ELITE,  Pro¬ 
portionalschrift,  Schmal-  und  Breit¬ 
schrift,  Fett-  und  Doppeldruck,  Hoch-/ 
Tiefstellung  sowie  Kursivschrift  zur 
Verfügung.  Auch  der  FX-85  bietet  die 
Möglichkeit,  einen  eigenen  Zeichen¬ 
satz  zu  definieren  und  entsprechend  zu 
verarbeiten.  Der  Eingabepuffer  wurde 
auf  8K  erweitert,  so  daß  Wartezeiten 
beim  Druck  nicht  mehr  anfallen.  Der 
FX-85  verfügt  über  IBM-Kompati- 
bilität,  die  über  DIP-Schalter  ange¬ 
steuert  wird.  Mit  einer  Druckgeschwin¬ 
digkeit  von  160  Zeichen/Sekunde  liegt 
er  gut  im  Rennen,  doch  hatte  auch  der 
FX-80  diese  Werte  bereits  vorweisen 
können.  Ansonsten  bleibt  nur  noch 
eine  optische  Veränderung  zu  erwäh¬ 
nen,  da  das  Bediener-Kontrollfeld  et¬ 
was  anders  angeordnet  ist.  Auch  sonst 
stellt  der  FX-85  keine  umwerfende  Neu¬ 
heit  dar,  sondern  ein  technisch  überar¬ 
beitetes  Produkt  vergangener  Jahre. 
Mit  einem  Preis  von  ca.  DM  1350,-  liegt 
Epson  auch  mit  dem  FX-85  im  Mittel¬ 
feld  und  bietet  solide  Leistung  zum  ver¬ 
nünftigen  Preis. 


Der  CPA-80  ist  der  dritte  Drucker  mit 
NLQ-Fähigkeit,  der  in  Verbindung  mit 
dem  CPC  getestet  wurde.  Schon  vom 
Preis  (ca.  DM  798,-)  liegt  der  CPA-80 
weit  unter  dem  vergleichbarer  Drucker. 
Allerdings  bietet  er  große  Leistung: 
100  Zeichen  pro  Sekunde,  Schriftarten 
Elite  u.  Italic,  komprimiert  u.  ver¬ 
breitert,  Fett-  und  Doppeldruck,  Hoch- 
und  Tiefstellungen,  Einzelblatt-  und 
Endlospapier-Verarbeitung.  Mit  der 
Download-Funktion  sind  auch  hier 
selbstdefinierte  Zeichensätze  ladbar. 
Die  größte  Überraschung  war  aller¬ 
dings  das  mitgelieferte  Handbuch,  das 
wir  in  der  vorliegenden  Form  bisher 
nicht  gesehen  hatten.  Zu  dem  Druk- 
kerhandbuch  gibt  es  eine  etwa  25- 
seitige  Bedienungsanleitung,  die  sich 
ausschließlich  mit  den  CPC-Steuerbe- 
fehlen  auseinandersetzt.  So  werden  alle 
Steuersequenzen  in  CPC-Basic  beschrie¬ 
ben,  also  nicht  mit  den  verwirrenden 
ESC-Befehlen,  wie  sonst  üblich.  U.a. 
wird  sogar  erwähnt,  wie  man  CPC- 
Steuerzeichen  auf  dem  CPA-80  GS  aus- 
drucken  kann. 

Das  Schriftbild  ist  gut  und  genügt  auch 
dem  Korrespondenzverkehr.  Da  soft¬ 
waremäßig  zwischen  7-  und  8bit  Über¬ 
tragung  gewählt  werden  kann,  sind 
selbst  komplizierte  Grafiken  problem¬ 
los  auszudrucken. 

Der  CPA-80  GS  ist  ein  für  CPC  Com¬ 
puter  geradezu  prädestiniertes  Peri¬ 
pheriegerät,  das  mit  einem  exzellenten 
Preis-/Leistungsverhältnis  aufwartet. 

(SR) 


1  ’86  CPC  51 


Computer  des  Jahres  wird  man  nur, 
wenn  man  besser  ist  als  gut. 
Schneider  CPC. 


Unser  tolles  Preis- 

Leistungsverhältnis  hat  die 

Wahl  gewonnen: 

bei  hunderttausenden  von 

Computer-Fans, 

die  für  wenig  Geld  echte 


Leistung  fordern  und  mit 
einem  CPC  Spitzenklasse 
bekommen. 

Gewonnen  auch  bei  der 
internationalen  Fachwelt: 
Computer-Fachjourna¬ 


listen  aus  7  Ländern  haben 
den  CPC  mit  deutlichem 
Vorsprung  zum  Computer 
des  Jahres  ’85  gekürt. 

Über  diese  Auszeichnung 
freuen  wir  uns  sehr. 


Sie  ist  uns  aber  auch  Ver¬ 
pflichtung  und  Ansporn  für 
die  Zukunft. 

Damit  Sie  immer  von 
Schneider  begeistert  sein 
können. 


Schneider  CPC  464 


Schneider  CPC  6128 


Der  Senkrechtstarter  unter  den  Computern.  Ideal  für  den 
kostengünstigen  Einstieg.  „Wfer  einfach  beginnen,  aber 
später  nicht  so  schnell  aus  seinem  Rechner  ’heraus- 
wachsen’  will.“ 


(CHIP  11/85). 
Komplettpreis  für 
Keyboard  mit  inte¬ 
griertem  Daten¬ 
recorder  und 
Grün-Monitor 
DM  798,-* 
Farb-Monitor 
DM  1.298,-* 


Die  Preis-  Leistungssensation  in  der  128  K-Byte- 
Profiklasse.  „Ein  echter  Home-Computer  der  neuen 
Generation . . .  auch  für  kleine  Betriebe  interessant.“ 


(HC  11/85). 

Kom’plettpreis  für  Key¬ 
board  mit  integriertem 
3"-Diskettenlaufwerk, 
einem  Software-Paket 
auf  2  Disketten 
(CP/M  2.2,  CP/M  Plus, 
Dr.  LOGO,  GSX)**  und 
Grün-Monitor 
DM  1.598,-* 
Farb-Monitor 
DM  2.098,-* 


Schneider  CPC  664 


Für  anspruchsvolle  Computer-Fans. 

„Reichhaltige  und  leistungsfähige  Software  decken  nahe¬ 
zu  jeden  Einsatzbereich  ab.“  (CPC  International  6/85). 
Komplettpreis  für 
Keyboard  mit 
integriertem 
3"-Diskettenlaufwerk 
und  Grün-Monitor 
DM  1.398,-* 

Farb-Monitor 
DM  1.898,-* 


Schneider 

CO n PUTER  Division 


*  unverbindliche  Preisempfehlung  Inkl.  MwSt. 

**  eingetragene  Warenzeichen  der  Digital  Research  Inc. 


Schicken  Sie  mir  bitte  kostenlos  und  unverbindlich  weitere 
Informationen  über 


□  Schneider  CPC  464  □  Schneider  Textcomputer  JOYCE 

□  Schneider  CPC  664  □  Schneider  Peripherie, 

□  Schneider  CPC  6128  Software  und  Literatur 

Name _ 

Beruf _ 


Straße  _ 
PLZ/Ort 


Am  besten  noch  heute  wegschicken 

Schneider  Computer  Division,  Silvastraße  1, 8939  Türkheim 


Programme . 
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Quickplan 


☆ 


☆ 


t  -  Transistor 

Der  Transistor  wird  nach  rechts  gezeichnet,  außer  bei  Cursor¬ 
bewegung  "links".  Es  erfolgt  eine  Abfrage  des  Transistortyps 
und  anschließend  befindet  sich  der  Grafik-Cursor  am  Kol¬ 
lektor  (npn)  bzw.  am  Emitter  (pnp). 


Das  Programm  QUICKPLAN  dient  zur  schnellen  Darstel¬ 
lung  elektronischer  Schaltungen  auf  dem  Bildschirm.  Die 
Bauelemente  werden  mittels  Cursor  in  die  zu  zeichnenden 
Verbindungslinien  eingefügt  und  können  beschriftet  wer¬ 
den. 


Programmbeschreihung: 

Nach  dem  Programmstart  erscheint  die  Titelseite  und  anschlie¬ 
ßend  das  Menue  mit  den  Punkten  1-Zeichnen,  2-Laden,  3- 
Speichem  und  4-Ändern. 

Nach  der  Wahl  von  ”1"  erscheint  das  "Zeichenbrett"  und  es 
wird  nach  dem  Namen  der  Schaltung  gefragt.  In  der  Kopf¬ 
zeile  wurde  links  der  aktuelle  Arbeitsmodus  angezeigt.  Nach 
dem  Start  befindet  man  sich  automatisch  im  Modus  "Zeich¬ 
nen".  Mittels  der  Cursor-Tasten  können  Linien  gezeichnet 
und  mit  den  vordefinierten  Tasten  die  entsprechenden  Bau¬ 
elemente  eingefügt  werden. 

Durch  Betätigung  der  "Copy"-Taste  gelangt  man  in  den  Mo¬ 
dus  "Laufen".  Nun  kann  der  Grafikcursor  bewegt  werden, 
ohne  daß  etwas  gezeichnet  oder  gelöscht  wird.  Nach  nochma¬ 
ligem  Drücken  von  "Copy"  ist  man  wieder  im  "Zeichnen"- 
Modus.  Mit  der  "CLR"-Taste  gelangt  man  in  den  "Radieren"- 
Modus.  Der  "Radiergummi"  kann  mittels  der  Cursortasten 
bewegt  werden  und  löscht  das  Darunterliegende.  Nach  dem 
Drücken  der  "CLR"-Taste  ist  man  wieder  im  "Laufen"- 
Modus. 

Mittels  der  Menuewahl  "2"  bzw.  "3"  kann  der  Bildschirm¬ 
speicherinhalt  auf  Kassette  gespeichert  bzw.  von  der  Kassette 
geladen  werden.  Mit  "4"  läßt  sich  eine  durch  "2"  auf  dem  Bild¬ 
schirm  erzeugte  Schaltung  verändern. 

Im  Zeichnen"-Modus  haben  die  Tasten  folgende  Bedeu¬ 
tungen: 

r  -  Widerstand  1  -  Spule 

p  -  Potentiometer  s  -  Schalter 

c  -  Kondensator 

Diese  Bauteile  werden  entsprechend  der  letzten  Cursor¬ 
bewegung  in  alle  vier  Richtungen  eingebaut. 

d  -  Diode 

Die  Diode  wird  auch  in  alle  Richtungen  gezeichnet,  immer 
von  der  Kathode  (-)  zur  Anode  (+). 

o  -  Operationsverstärker 
a  -  Anschluß 

Operationsverstärker  und  Anschluß  werden  nach  rechts,  nur 
bei  Cursorbewegung  "links"  nach  links  gezeichnet. 

m  -  Meßanschluß 

Der  Meßanschluß  wird  nach  unten,  nur  bei  Cursor¬ 
bewegung  "oben"  nach  oben  gezeichnet. 


k  -  Knoten 

Der  Schaltungsknoten  kann  beliebig  gesetzt  werden,  es  wird 
auch  nicht  auf  freien  Raum  getestet.  Nach  Seizen  des  Knotens 
muß  erst  eine  Linie  herausgeführt  werden,  bevor  ein  weiteres 
Bauelement  angefügt  werden  kann. 

Zusätzlich  auch  im  ”Laufen”-Modus  sind  belegt: 

b  -  Beschriften 

An  der  Grafik-Cursorposition  kann  eine  Beschriftung  erfol¬ 
gen.  Es  können  Bauteile,  nicht  aber  der  Rand  überschrieben 
werden. 


e  -  Ende 

Beenden  der  Zeichnung  und  Rückkehr  ins  Menue. 


Bei  den  Bauteilen  wird  vor  dem  Zeichnen  getestet,  ob  der  er¬ 
forderliche  Platz  noch  frei  ist.  Ist  dies  nicht  der  Fall,  so  erfolgt 
ein  Piepen  und  der  Cursor  bleibt  auf  seiner  Position.  Linien 
können  dagegen  Bauteile  und  andere  Linien  beliebig 
kreuzen. 


Das  Programm  kann  für  die  eigenen  Bedürfnisse  leicht  abgeän¬ 
dert  und  ergänzt  werden.  So  wäre  es  denkbar,  das  Menue  um 
einen  Punkt  "Drucken"  zu  erweitern  und  eine  Hardcopy- 
Routine  einzufügen.  Tasten  zur  Belegung  anderer  Bauteile, 
wie  z.B.  IC's,  sind  noch  genügend  frei. 

Herbert  Wolfsteller 


Erläuterung  des  Listings: 

0-  230  Festlegung  der  Farben,  Variablentypen.  Win¬ 
dows.  Aufruf  des  Unterprogramms  zum 
Titelbildaufbau. 


230-  300 
310-1260 


1270-  1340 
1350-  1610 


1620 

1630-  1640 
1650 


Menue-Anzeige  und  Nummerneingabe 
Zeichnen  der  einzelnen  Bauteile.  Dabei  zu¬ 
erst  die  Berechnung  der  Variablen  minx, 
maxx,  miny,  maxy,  die  den  benötigten  Platz 
relativ  zur  aktuellen  Position  angeben.  Falls 
dort  die  "fullflag"  gesetzt  wird,  erfolgt  der 
Sprung  nach  1380,  andernfalls  wird  gezeichnet. 
Danach  werden  die  neuen  x,y-Koordinaten 
der  Cursorposition  berechnet  und  zurück  zur 
Tastaturabfrage  nach  1390  gesprungen. 

Das  Zeichenbrett  wird  aufgebaut,  der  "Zeich- 
nen"-Status  angezeigt. 

Tastaturabfrage-Routine.  1380  ist  die  Sprung¬ 
adresse,  falls  kein  Platz  zum  Zeichnen  vor¬ 
handen  ist.  In  den  Zeilen  1410  und  1420  wird 
in  ein  Unterprogramm  gesprungen,  falls  eine 
Status-verändernde  Taste  gedrückt  wird. 
Berechnung  der  neuen  Koordinaten 
Test,  ob  der  Bildrand  erreicht  ist. 

Im  "Radieren"-Modus  Verzweigung  nach 
1940 


1660 

1670-  1710 
1720-  1810 

1820-  1860 

1870-  1920 
1930  -  1990 

2000  -  2070 

2080  -  2290 
2300  -  2350 

2360  -  2400 

2400  -  2570/ 
2580 


Im  "Laufen"-Modus  Verzweigung  nach  1750 
Zeichnen  der  Verbindungslinien 
Zeichnen  des  blinkenden  "Laufen"-Cursors. 
ohne  das  Bild  zu  überschreiben. 
Modus-Wechselanzeige  bei  Betätigung  von 
CLR  . 


Anzeigewechsel  bei  Drücken  von  "Copy”. 
Zeichnen  des  blinkenden  "Radiergummies” 
entsprechend  der  Cursorbewegung. 

Eingabe  des  Beschriftungstextes.  Test,  ob  die 
Schrift  den  Rand  überschreibt. 

Titelbild 


Abspeichern  auf  Recorder.  Rücksprung  ins 
Menue. 

Laden  vom  Recorder.  Rücksprung  ins 
Menue. 

Testroutine 

Programmende 
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. Programme 


Variablenliste: 

xl,  yl 
xx,  yy 
sx,  sy 


Aktuelle  Koordinaten  der  Cursorposition 
Aktueller  Cursortastenwert 
ietzter  Cursorwert 
Vorzeichenvariablen 


zw,  yz,  xab,yab  Rechenzwischengrößen 


z,in$,l$ 
minx.  miny 

maxx,  maxy 

fullflag 

drflag 

clflag 
h,  i,  j,  k 
tx(2),  ty(2) 

I 

n$ 

transartS 


Eingabevariablen 
Kleinste  für  das  Bauteil  benötigte  relative  x- 
bzw.  y-Koordinate. 

Größte  für  das  Bauteil  benötigte  relative  x- 
bzw.  y-Koordinate. 

Flagge,  die  gesetzt  ist,  wenn  kein  Platz  zum 
Zeichnen  ist 

Flagge,  die  gesetzt  ist,  wenn  man  im 
"Zeichnen''-Modus  ist. 

Flagge,  die  im  Radiermodus  gesetzt  ist. 
Schleifenvariablen 
Testvariablen  für  den  Laufcursor 
Länge  des  Beschriftungstextes 
Name  der  Schaltung 
Art  des  Transistors 


16  REM  *  *  *  ****************  *  * 

20  REM  * 

30  REM  *  QUICKPLAN 
40  REM  * 

50  REM  *  *  *  ****************  *  * 

60  REM  * 

70  REM  *  (c)  1985  by 

80  REM  *  Herbert  Wolfsteller 
90  REM  * 

100 
110 
120 
130 
140 
2 

150 
160 
170 
180 
190 
200 
210 
,  1 
220 
2,1 
230 
240 
250 
260 
270 

ICHERN- >  3  AENDERN- >4  ” 

280  in$=INKEY$+"  ":IF  ASC(in$><49  OR  ASC 
(in$) >52  THEN  280 
290  z=VAL( in$) 

300  ON  Z  GOTO  1300,2390,2330,1310 
310  REM 
320  REM 

330  REM  ***  Bauteile  «** 


REM  *  *  *  ****************  *  *  * 

REM  *  *  * 

REM  *  *  *  Programmbeginn  *  *  * 

REM  *  *  * 

DEG.-INK  0,13:  INK  1 , 0  :  BORDER  14:  MODE 

GOSUB  2110 
DEFINT  c-m , r-z 
DIM  tx(2) , ty ( 2 ) 
drflag=~l :clflag=0 
xl=0 
yl=o 

WINDOW  #1,1, 80, 1,1: PEN  #1,0: PAPER  #1 
WINDOW  #2,36,49, 1 , 1 : PEN  #2 . 0 : PAPER  # 
REM 

RgM  *  *  *  Menue  *  *  * 

REM 

CLS : CLS#1 

PRINT#1 , "  ZEICHNEN- >1  LADEN- >2  SPE 


340  REM 
350  REM 

360  REM  *  *  *  Anschluss  *  *  * 

370  REM 

380  sx=SGN ( xx } : IF  sx=0  THEN  sx=l 

390  minx=MIN(sx*15, 1 ) : maxx=MAX( sx*15 , -1 ) 

: rainy=-4 : maxy-4 : GOSUB  2440 

400  IF  fullflag  THEN  1380 

410  DRAWR  sx*10 ,0 

420  DRAWR  0,-2: DRAWR  sx, -2: DRAWR  sx*3,0: 
DRAWR  sx, 2: DRAWR  0,4: DRAWR  -sx, 2: DRAWR  - 
sx*3 , 0 : DRAWR  -sx,-2:DRAWR  0,-2:MOVE  x.y 
430  GOTO  1390 
440  REM 

450  REM  *  *  *  Masse  «  *  * 

460  REM 

470  IF  yy=0  THEN  yz=-10  ELSE  yz=2*yy 


Schneideruata 

••-ctcLzb^XjOOA  SlG  AucKßm! 

Das  umfassende  Produktangebot  für  Ihren  Schneider  Computer  CPC464/664/6128  und  JOYCE. 


Fragon  Sie  Ihren  Schneider-Händler 
nach  weiteren  Produkten  von 
SchneidcrData  oder  fordern  Sie 
eine  ProduMübersIchl  an  direkt  von 


Die  serielle  Schnittstelle,  die  genau  zu  Ihrem 
Schneider  CPC  paßt.  Sie  wurde  von  den  Leuten 
gemacht,  die  auch  Ihren  CPC  entwickelt  haben 

Diese  RS232C  ist  nicht  nur  dazu  da,  um  Zusatz¬ 
einrichtungen  anzuschließen  Sie  hat  ihre  eigene 
ROM-Software,  um  Terminals  zu  emulieren,  so- 
daß  Ihr  CPC-System  mit  Mini-  und  Großrechnern 
Zusammenarbeiten  kann  Die  ROM-Software  paßt 
häargenau  zur  CPC-Firmware.  Sie  kann  unter 
SIC  und  unter  CP/M  aufgerufen  werden 


Der  Sprach-Synthesizer  SSA-1  erzeugt 
Sprache  (mit  englischem  Tonfall)  und  gibt 
don  Stereo-Sound  verstärktaus  Das  System 
wird  komplett  mit  der  notwendigen  Software 
und  Dokumentation  geliefert,  um  Sprache  in 
die  Programme  einbauen  zu  können 


SSA-1  SOUND  SYNTHESIZER 


SchnefderData 

Computer  Vertriebs  GmbH 
Rindcrmarkt  8 
8050  Freising 


Wenn  Sie  selbst 

programmieren... 

und  interessante  Anwendungen  oder  Spiele  entwickelt 
haben,  nützliche  Routinen  oder  Utilities  programmiert 
haben,  sollten  Sie  sich  mit  uns  in  Verbindung  setzen. 
Wir  suchen  ständig  gute  Software  zur  Veröffentlichung 

Schneider  CPC  International 
Postfach  140 
3440  Eschwege 
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Programme 

480  minx=-5:maxx=5:miny=MIN(2,yz) :maxy=M 
AX ( -2 , yz ) 

490  GOSUB  2440 : IF  fullflag  THEN  1380 
500  DRAWR  0,yz: MOVER  -5,0: DRAWR  10,0:MOV 
E  x ,  y 

510  GOTO  1390 
520  REM 

530  REM  *  *  *  Diode  *  *  * 

540  REM 

550  minx=MIN ( 5*xx , -6+7*SGN(xx) ) :maxx=MAX 
( 5*xx , 6+ 7* SGN ( xx ) ) :miny=MIN(5*yy ,6+8*SGN 
(yy)  )  : inaxy =MAX ( 5*yy , 6+8 * SGN ( yy )  ) 

560  GOSUB  2440 : IF  fullflag  THEN  1380 
570  xx=6*SGN(xx) :yy=6*SGN(yy) 

580  DRAWR  xx.yy: MOVER  yy,xx: DRAWR  -2*yy, 
-2*xx: MOVER  2*xx , 2*yy : DRAWR  2*yy,2*xx:F0 
R  h=l  TO  9  : DRAW  x+xx , y+yy : DRAWR  2*xx+(l 
-h*0.2) *yy, 2*yy+(l-h* 0.2) *xx: MOVER  -0.1* 
yy,-0.1*xx:NEXT  h : DRAW  x+xx, y+yy 
590  MOVER  2*xx,2*yy : DRAWR  7*SGN(xx) , 7*SG 
N(yy) 

600  xx=5*SGN ( xx ) :yy=5*SGN(yy ) :x=x+5*xx:y 
=y+5*yy : MOVE  x,y 
610  GOTO  1390 
620  REM 

630  REM  *  *  *  Transistor  *  *  * 

640  REM 

650  sx=SGN(xx) : IF  sx=0  THEN  sx=l 

660  minx=MIN(l ,sx*26) : maxx=MAX (sx*26 . -1 ) 

:miny=-12:maxy=12 

670  GOSUB  2440 : IF  fullflag  THEN  1380 
680  DRAWR  sx*15,0  : DRAWR  0,4: DRAWR  0,-8: 
MOVE  X+SX* 15, y: DRAWR  SX* 10 , -10 : MOVE  x+sx 
* 15 , y : DRAWR  SX*10 , 10 :ORIGIN  x+SX*18,y:F0 
R  1=1  TO  72 : ko=5*l : PLOT  10*C0S(ko) , 10*SI 
N { ko ) : NEXT  1: ORIGIN  0,0:MOVE  x,y 
690  LOCATE  #2 , 1 , 1 : PRINT#2 ,  CHR$ { 24 ) ; "n" ; 

CHR$ ( 24 ) ; "pn/M ; CHR$ { 24 )  ; "p" ; CHR$ ( 24  > ; "np 

?.. 

700  transart$=LOWER$(INKEY$) : IF  transart 
*<>"p"  AND  transart$<  > "n"  THEN  700 
710  IF  transart$="p"  THEN  720  ELSE  MOVER 
SX* 18, -5: DRAWR  sx*4 , 0 : DRAWR  0,4: GOTO  73 

0 

720  MOVER  SX* 18, 7: DRAWR  0 , -4 : DRAWR  SX*4, 
0 

730  ORIGIN  0,0: x=x+sx*25 : y=y+10 : MOVE  x,y 
:CLS#2 

740  GOTO  1390 
750  REM 

760  REM  *  *  *  Widerstand  *  *  * 

770  REM 

780  ■inx=MIN(l,8*xx-ABS(yy) ) :maxx=MAX(-l 
, 8*xx+ABS(yy ) ) :miny=MIN(2,8*yy-ABS(xx) ) : 
maxy=MAX( -2,Q*yy+ABS(xx) ) 

790  GOSUB  2440 : IF  fullflag  THEN  1380 
800  DRAWR  xx.yy: DRAWR  yy,xx: DRAWR  6*xx,6 
*yy : DRAWR  -2*yy , -2*xx : DRAWR  -6*xx,-6*yy: 
DRAWR  yy.xx 

810  MOVE  x+7*xx,y+7*yy: DRAWR  xx,yy 
820  x=x+8*xx : y=y+8*yy 
830  GOTO  1390 
840  REM 

850  REM  *  *  *  Spule  *  *  * 

860  REM 

870  xab=2*ABSt  xx )  :  yab=2*ABS(yy )  :ininx=MIN 
{ 1 , 9*xx-yab) :maxx=MAX( -1 , 8*xx+yab) :miny= 
MIN(2,8*yy-xab) :maxy=MAX(-2 , 8*yy+xab) 

880  GOSUB  2440 : IF  fullflag  THEN  1380 
890  DRAWR  xx,yy:FOR  h=l  TO  5: DRAWR  yy,-x 
x: DRAWR  2*SGN{xx+yy) , 2*SGN ( -xx+yy ) : DRAWR 
2*  SGN  ( xx )  ,  2  *  SGN  { yy  >  .-DRAWR  2*SGN(-yy+xx) 

, 2*SGN(yy+xx) : DRAWR  -yy,xx:NEXT  h : DRAWR 
xx ,  yy 

900  x=x+8*xx : y=y+8*yy 


. . . . . . . . . . i . .  lllll . im . mm . . 


910  GOTO  1390 
920  REM 

930  REM  *  *  *  Schalter  *  *  * 

940  REM 

950  xab=6* ABS C xx ) \5 : yab=6* ABS (yy ) \5 : rainx 
=MIN ( 1 , 5*xx) :maxx=MAX(-l ,5*xx+yab) :miny= 
MIN ( 2 , 5*yy ) : maxy=MAX ( -2 , 5*yy+xab ) 

960  GOSUB  2440 :IF  fullflag  THEN  1380 
970  DRAWR  xx.yy: MOVER  yab,xab:x=x+4*xx:y 
=y+4*yy.-DRAW  x,y: DRAWR  xx , yy : x=x+xx : y=y+ 

yy 

980  GOTO  1390 
990  REM 

1000  REM  *  *  *  Kondensator  *  *  * 

1010  REM 

1020  yab=6*ABS (yy ) \5 : xab=6*ABS(xx ) \5 : min 
x=MIN ( 1 ,4*xx-yab) :maxx=MAX(-l ,4*xx+yab) : 
miny=MIN ( 2 , 4*yy-xab) : raaxy=MAX ( -2 , 4*yy+xa 
b) 

1030  GOSUB  2440 :IF  fullflag  THEN  1380 
1040  xx=6  *  SGN  { xx )  :yy=6  »SGN  (yy)  .-DRAWR  xx  , 
yy: MOVER  yy.xx .-DRAWR  -2*yy,-2*xx:MOVER  x 
x,yy: DRAWR  2*yy , 2*xx .-MOVER  -yy , -xx : xx=5* 
SGN ( XX ) :yy=5*SGN(yy) : DRAWR  SGN ( XX ) *7 , SGN 
(yy ) *7 : x=x+4*xx .-y=y+4*yy 
1050  GOTO  1390 
1060  REM 

1070  REM  *  *  *  Knoten  *  *  * 

1080  REM 

1090  MOVER  -2, -2: DRAWR  4,0: MOVER  0,2:DRA 
WR  -4,0: MOVER  0,2: DRAWR  4,0 
1100  GÖTO  1390 
1110  REM 

1120  REM  *  Operationsverstaerker  * 
1130  REM 

1140  sx=SGN (xx) : IF  sx=0  THEN  sx=l 

1150  rainx=MIN( 1 ,sx*16) : raaxx=MAX ( ~1 ,sx*16 

)  .-miny=MIN(-6,yy*3)  :maxy=MAX(6 ,yy*3) 

1160  GOSUB  2440 : IF  fullflag  GOTO  1380 
1170  IF  yy=0  THEN  sy=l  ELSE  sy=SGN(yy) 
1180  DRAWR  sx*5 , 0 : DRAWR  0 , -sy *5 : DRAWR  sx 
*  15, sy*10: DRAWR  -15*sx , sy* 10 : DRAWR  0,-15 
*sy : MOVER  0 , 10* sy : DRAWR  -5*sx , 0 : y=y+10*s 

y 

1190  GOTO  1390 
1200  REM 

1210  REM  *  *  *  Potentiometer  *  *  * 
1220  REM 

1230  xab=2*ABS(xx) : yab=2* ABS ( yy ) :minx=MI 
N(1 ,8*xx-yab) :maxx=MAX( -1 ,8*xx+yab) :miny 
=MIN(2,8*yy-xab) :maxy=MAX(-2, 8*yy+xab) 
1240  GOSUB  2440 : IF  fullflag  THEN  1380 
1250  zw=0 . 6* (xx+yy ): MOVER  xx-2*yy , -2*xx+ 
yy : DRAWR  5*xx+4*yy , 5*yy+4*xx : DRAWR  -zw.O 
: MOVER  ZW, 0: DRAWR  0, -ZW: MOVE  x.y 
1260  GOTO  800 
1270  REM 

1280  REM  *  Aufbau  des  Zeichenbildes  * 
1290  REM 

1300  CLS#1: LOCATE  #1 , 10 , 1 : INPUT#1 , "Name" 

; n$ : CLS : CLS#1 
1310  n$=LEFT$ ( n$ , 18 ) 

1320  LOCATE  #1 , 50 , 1 : PRINT#1 , "  Schaltung: 
”f  n$ 

1330  LOCATE  #1 , 1 , 1 : PRINT#1 , "  Zeichnen 

1340  x=300 : y=200 : MOVE  x,y:xx=5 
1350  REM 

1360  REM  *  *  *  Tastaturabfräge  *  *  * 
1370  REM 

1380  fullflag=0: PRINT  CHR$(7); 

1390  q$=LOWER$ { INKEY$ ) 

1400  IF  q$=""  THEN  1650 

1410  IF  q$=CHR$ ( &10 )  THEN  clflag=NOT  cif 
lag  .-GOSUB  1850 

1420  IF  q$=CHR$ ( 224 )  THEN  drflag=NOT  drf 
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lag : GOSUB  1900 


1430 

IF 

q$=CHR$ ( 243 ) 

THEN 

xl=5 

1440 

IF 

q$=CHR$ ( 242 ) 

THEN 

xl=-5 

1450 

IF 

q$=CHR$ ( 241 ) 

THEN 

yl=-5 

1460 

IF 

q$=CHR$ ( 240 ) 

THEN 

yl=5 

1470 

IF 

clflag 

THEN 

1620 

1480 

IF 

NOT  drf lag  THEN  1600 

1490 

IF 

qS>="k" 

THEN 

1090 

1500 

IF 

q$="r" 

THEN 

780 

1510 

IF 

q$="d" 

THEN 

550 

1520 

IF 

q$="t" 

THEN 

650 

1530 

IF 

q$="l" 

THEN 

870 

1540 

IF 

q$="o" 

THEN 

1140 

1550 

IF 

q$="p" 

THEN 

1230 

1560 

IF 

q$="a" 

THEN 

380 

1570 

IF 

q$="m" 

THEN 

470 

1580 

IF 

q$="C" 

THEN 

1020 

1590 

IF 

q$="s" 

THEN 

920 

1600 

IF 

q$="b” 

THEN 

2030 

1610 

IF 

q$="e" 

THEN 

270 

1620  x=x+xl :y=y+yl :xx=xl :yy=yl : xl=0 :yl=0 
1630  IF  x < 1  OR  x >639  THEN  PRINT  CHR$(7) ; 

: X=X-XX : GOTO  1390 

1640  IF  y < 1  OR  y>379  THEN  PRINT  CHR$(7) ; 

i y=y— yy ; goto  1390 

1650  IF  cif lag  THEN  1960 
1660  IF  NOT  drf lag  THEN  1750 
1670  REM 

1680  REM  *  *  Verbindung  zeichnen  *  * 

1690  REM 

1700  DRAM  x , y , 1 

1710  GOTO  1390 

1720  REM 

1730  REM  *  *  *  Laufen  *  *  * 

1740  REM 

1750  FOR  i=0  TO  2:tx(i)=TEST  (x+i,y):PL 

OT  X+i , y , 1 : NEXT  i : FOR  j=l  TO  2:ty(j)=TES 

T( x , y+j ) : PLOT  x , y+j , 1 : NEXT  j 

1760  FOR  k=l  TO  30: NEXT  k 

1770  FOR  i  =  0  TO  2 :  IF  tx(i)ol  THEN  PLOT 

x+i,y ,0 

1780  NEXT  i 

1790  FOR  j  =  l  TO  2 :  IF  ty(j)ol  THEN  PLOT 
x,y+j ,0 

1800  NEXT  j : MOVE  x,y 
1810  GOTO  1390 
1820  REM 

1830  REM  *  *  *  Radiermodus-Anzeige  *  *  * 
1840  REM 

1850  LOCATE  #1,2,1 : IF  cif lag  THEN  PRINT# 
1,"  Radieren”  ELSE  drf lag=0 : PRINT#1 , "  La 
ufen 

1860  RETURN 
1870  REM 

1880  REM  *  *  *  Laufmodus-Anzeige  *  *  * 
1890  REM 

1900  IF  cif lag  THEN  drf lag=0 : RETURN 
1910  LOCATE  #1 , 2 , 1 : IF  drf lag  THEN  PRINT# 
1,"  Zeichnen  "  ELSE  PRINT#1,"  Laufen 
1920  RETURN 
1930  REM 

1940  REM  *  *  *  Radieren  *  *  * 

1950  REM 

1960  PLOT  X,y, 1 : TAG: MOVE  x-4 , y+4 : PRINT  C 
HR$ ( 143 ) ; 

1970  FOR  i=l  TO  200: NEXT  i:MOVE  x-4, y+4: 
PRINT  " 

1980  TAGOFF : MOVE  X.y 
1990  GOTO  1390 
2000  REM 

2010  REM  *  *  *  Beschriften  *  *  * 

2020  REM 

2030  LOCATE  #1 , 30 , 1 : PRINT#1 , "  Text : ” : INP 
UT#2 , ;"",b$ 

2040  l=LEN(b$):IF  x+l*B>639  OR  y-17<l  TH 
EN  CLS#2: LOCATE  #1 , 30 , 1 : PRINT#1 , " 

: GOTO  1380 

2050  MOVER  +4,-4:PLOTR  1 , 1 , 1 : MOVE  x,y:TA 


G: PRINT  b$ TAGOFF : MOVE  x,y 
2060  LOCATE  #1 , 30 , 1 : PRINT#1 , "  ”:CLS 

#2 

2070  GOTO  1390 
2080  REM 

2090  REM  *  *  *  Titelbild  *  *  * 

2100  REM 

2110  CLS: LOCATE  25 , 2 : PAPER  1 : PEN  0 : PRINT 
"QUICK  PLAN  PAPER  0:PE 
N  1 

2120  LOCATE  15 , 4 : PRINT"Elektronische  Sch 
altungen  schnell  gezeichnet  !”:LOCATE  15 
, 4 : PRINT  CHR$ ( 10 )CHR$ ( 1 )STRING$ (46 , )C 
HR$( 10) 

2130  LOCATE  25, 6: PRINT  CHR$<164)+"  1985 
Herbert  Wolf steiler" 


2140  PRINT: PRINT: PRINT"  Folgende  Zeiche 


n  koennen  verwendet  werden 


2150 

PRINT: 

PRINT" 

2160 

PRINT" 

b 

2170 

PRINT" 

c 

2180 

PRINT" 

d 

2190 

PRINT" 

e 

2200 

PRINT" 

k 

2210 

PRINT" 

1 

2220 

PRINT" 

m 

2230 

M 

PRINT" 

o 

a  -  Anschluss  " 
Beschriftung" 
Kondensator  " 

Diode 

Ende" 

Knoten 

Spule 

Masseanschluss" 

Operationsverstaerker 


2240  PRINT"  p  - 
2250  PRINT"  r  - 
2260  PRINT"  s  - 
2270  PRINT"  t  - 
2280  PRINT: PRINT" 


Potentiometer" 
Widerstand  " 
Schalter  " 

Transistor  " 

Weiter  mit  < ENTER» 


2290  CALL  &BB18: RETURN 
2300  REM 

2310  REM  *  Abspeichern  auf  Recorder 


2320  REM 

2330  PRINT#1. "Bitte  REC/PLAY  druecken 
<  ÄNTER> 

2340  CALL  4BB18 

2350  SPEED  WRITE  IrSAVE  " !elo. " , b.&COOO , 
&3FFF : GOTO  270 


2360  REM 

2370  REM  *  *  *  Laden  vom  Recorder  *  *  * 
2380  REM 

2390  PRINT#1, "Bitte  PLAY  druecken 

< ENTER»  " : CALL  &BB 


18: LOAD" 1 
2400  GOTO  270 
2410  REM 
2420  REM  *  *  * 
2430  REM 


Testroutine 


* 


2440  IF  minx+x<l  OR  maxx+x>639  OR  miny+y 
<1  OR  raaxy+y >379  THEN  fullf lag=-l : RETUR 
N 


2450  MOVE  x+minx ,y+miny : i=minx:WHILE  NOT 
fullflag  AND  icmaxx 

2460  IF  TESTR (1 ,0) < >0  THEN  fullf lag=NOT 

fullflag 

2470  i=i+l : WEND 

2480  MOVE  x+minx, y+raaxy : i=minx : WHILE  NOT 
fullflag  AND  i<maxx 

2490  IF  TESTR ( 1 , 0 } <  »0  THEN  fullf lag=NOT 

fullflag 

2500  i=*i  +  l  :  WEND 

2510  MOVE  x+minx, y+rainy+2 : i=miny+2 : WHILE 
NOT  fullflag  AND  i<maxy-l 
2520  IF  TESTR ( 0 , 1 ) <  > 0  THEN  fullf lag=NOT 
fullflag 
2530  i=i+l : WEND 

2540  MOVE  x+maxx , y+miny+2 : i=miny+2 : WHILE 
NOT  fullflag  AND  i < raaxy-1 
2550  IF  TESTR ( 0 , 1 } <  > 0  THEN  fullf lag=NOT 
fullflag 
2560  i=i+ 1 : WEND 
2570  MOVE  X,y: RETURN 
2580  END 
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Es  geht  auch 
schneller! 


Haben  Sie  sich  auch  schon  einmal  darüber  geärgert,  wie  lange  es 
dauert,  bis  ein  Programm  von  Cassette  geladen  ist?  Und  beson¬ 
ders  darüber,  daß  viel  Zeit  durch  die  Pausen  zwischen  den  einzel¬ 
nen  Blöcken  verloren  geht?  Wenn  ja,  dann  schafft  das  folgende 
Programm  »TurboSave«  Abhilfe.  Bevor  Sie  aber  weiterblät¬ 
tern,  weil  Sie  denken,  die  Erhöhung  der  Baudrate  ist  ein  alter 
Hut,  lesen  Sie  diesen  Artikel! 


Es  gibt  schon  einige  Programme,  die  die  Übertragungsge¬ 
schwindigkeit  (Baudrate)  zwischen  Cassettenrekorder  und 
dem  Computer  erhöhen,  und  damit  die  Lade-  und  Speicher¬ 
zeiten  verkürzen.  Diese  Programme  haben  bloß  den  Nachteil, 
daß  für  sie  eigens  ein  spezielles  Aufzeichnungsverfahren  er¬ 
dacht  wurde.  Das  bedeutet  für  den  Anwender,  daß  er  jedes¬ 
mal.  wenn  er  etwas  speichern  oder  laden  will,  eine  spezielle 
Save-  bzw.  Load-Routine  laden  muß,  wodurch  wieder  Zeit 
verloren  geht  und  meistens  der  Zeitvorteil  durch  die  schnellere 
Aufzeichnung  wieder  verliert.  Warum  aber  nicht  das  eigene 
Aufzeichnungsverfahren  des  C'PC  464  nutzen?  Denn  wenn 
man  sich  einmal  die  entsprechenden  Routinen  im  Betriebs¬ 
system  ansieht,  stellt  man  fest,  daß  sie  bis  zu  einer  Übertra¬ 
gungsrate  von  3800  Baud  (Bit  pro  Sekunde)  arbeiten  können, 
und  daß  die  Laderoutine  auch  Blöcke  lesen  kann,  die  länger 
als  2K  Byte  sind!  Man  braucht  also  nur  ein  Programm, 
welches  die  Baudrate  hoch  setzt  und  die  Abspeicherroutine  so 
abändert,  daß  sie  die  Programme  nicht  mehr  in  2K-Byte- 
Blöcke  »zerstückelt«.  Genau  diese  Aufgabe  erfüllt  das  Pro¬ 
gramm  »TurboSave«.  Für  die  Anwendung  müssen  Sie  also 
»TurboSave«  nur  einmal,  bevor  Sie  das  Programm,  das  schnell 
abgespeichert  werden  soll,  laden  und  können  dann  dieses 
Programm  durch  ein  ganz  normales  LOAD  bzw.  RUN”  erheb¬ 
lich  schneller  nach  dem  Abspeichern  wieder  laden!!!  Diese 
Kopie  besteht  dann  nämlich  nur  noch  aus  2  Blöcken  (der  erste 
Block  muß  noch  2K-Byte  lang  sein,  der  zweite  enthält  dann 
den  Rest  der  Daten),  wodurch  man  die  Pausen  zwischen  den 
Blöcken  spart.  Sie  kann  wahlweise  mit  3600  Baud  erstellt  wer¬ 
den  (ca.  1.8  mal  zusätzlich  schneller  als  mit  SPEED-WRITE 


1).  Die  Handhabung  erfolgt  nach  folgendem  Schema: 


1.  Tippen  Sie  den  Basiclader  ab  und  speichern  ihn  dann. 


2.  Starten  Sie  das  Basicprogramm  (mögliche  Fehler  in  DAT  As 
korrigieren  und  erneut  abspeichern)  und  speichern  damit 
das  eigentliche  TurboSave-Maschinenprogramm  ab. 


3.  Bringen  Sie  das  Programm,  welches  Sie  unter  TurboSave 
auf  Cassette  abspeichern  wollen,  in  den  Speicher  (entweder 
durch  Eintippen  oder  LOAD). 


4.  Laden  Sie  das  TurboSave-Maschinenprogramm  durch 
LOAD  "TURBOSAVE”.  Das  Programm  installiert  sich  sel¬ 
ber  und  löscht  das  im  Speicher  befindliche  Programm 
nicht. 


01000 

01010 

01020 

01030 

01040 

501030 

01080 

01070 

01080 

01090 

01100 

01110 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 


BBOO 

BB00 
BB0  3 
8B06 
BB09 
BB0C 
BB0F 
BB11 
BBl  4 
BB16 
BBl  8 
BB1B 
BB1E 
BB21 
BB24 
BB26 
BB29 
BB2A 

BB20 

BC7A 


B468 

B468 
B469 
B46A 
B46B 
B46E 
B47 1 
B474 
B476 
B479 
B47A 
B47B 
B47C 
B47E 
B48 1 
B485 
B489 
B48C 
B490 
B493 
B494 
B495 
B497 
B49A 
B49D 
B49E 
B4A0 
B4A1 
B4A4 
B4A5 
B4A6 


RMEM  S014D 


iPlatz  frei  lassen 


iVekcor  auf  Start  legen 


I  =========  Ersatzroutlne  für  CAS  OUT  DIRECT  .«..»==== 


CS 

4F 

CD  06  B9 
CD  03  B9 

21  47  B8 
06  03 

CD  BE  24 

79 

CI 

El 

20  3E 

32  5E  B8 
ED  53  64  B8 
ED  43  86  B8 

22  48  B8 

ED  53  5F  B8 

21  FF  F7 
19 

3F 

38  25 
21  00  08 

22  5F  BB 


HL 

BC 

C.A 

6B906 

6B903 

HL.SBS47 

B.  03 
6248E 
A.C 
BC 

HL 

HZ  .break 
(5B65E)  .A 
(6B864)  ,  DE 
(SB866)  ■  BC 
(6BB48) .HL 
(SB85F1  .DE 
HL. 6F7FF 
HL. DE 

C.  break 
HL. S0800 
(6BB5F)  .HL 
DE.  HL 

HL.  DE 
HL 

HL.  (6BB48) 
HL. DE 


; Startadresse  ablegen 
i Einspungsadresse  * 
iFiletyp  in  C 
s  L  ROH  einschalten 
;U  ROM  ausschalter. 
i Oulbuf f ei  Status  in  HL 


; Fi letyp  in  A 

ihole  Einspungsadreeee 

ihole  Startadresse 


iFiletyp  ln 

i Filelänge  " 
i Einsprung  * 
;Ouputpointer»5t 
[Länge  ln 


;Blocklänge=60B00 
i  "  in  Header 

iHL=Ldnga-Block länge 
Länge  ablegen 

;HL=Outputpointer+Länge 
iOutputpointer  ablegen 
iAbapelchern 


(6000) 


ORG  6BB00 . 66000 


CD  06  B9 
CD  03  B9 
CD  FC  23 
21  68  B4 
11  70  00 
3E  BE 
CD  36  28 
30  OE 
3E  C3 

21  C3  B4 
32  07  AC 

22  08  AC 
C3  23  B8 
06  85 

CD  13  27 
B7 

C3  23  SB 


Start  CALL 
CALL 
CALL 


6E3906 
SB903 
623FC 
HL.&B468 
DE. 60070 
A.6BE 
62036 
NC. fehler 

A. &C3 
HL. band 
(6AC0?)  .A 
(6AC08) .HL 
6B823 

B.  685 
62713 
A 

6B823 


;L  ROH  einachalten 
;U  ROH  ausschalten 
i CAG  IN  CLOSE 
iLadeadresse 
; Länge 
iKennbyte 

iladen  ohne  Header 
ispeinge.  wenn  Fehler 
iSyntaK-Vektor  verbiegen 


;in  Header  springen 
iCode  für  READ  ERROR 
iREAO  ERROR  ausgeben 
jC-0,  well  Fehler 
:in  Header  springen 


TurboSave  alt  Ladeprograa» 

Assembler  1 1 at Ing 
(c)  Oktober  1985  by  H. Schulz 


58  CRC  1  ’86 


"""" . . . . . 1 . . . . . . . . . . . . . . . . 


■  .  ■  .  .  •  •  .  ■  •  ■  >  I  ■  ■  ■  )  I  |  |  |  (  | 


i  ips  oi  iricKS1 


01670 

B4A9 

El 

01680 

B4AA 

Dl 

01690 

B4AB 

30  0F 

01700 

B4AD 

22  48  BB 

01710 

B4B0 

ED  53  5F  B8 

01720 

B4B4 

3E  FF 

01730 

B4B6 

32  5D  B8 

01740 

B4B9 

CD  14  26 

01750 

B4BC 

CD  09  B9 

01760 

B4BF 

CD  00  B9 

01770 

B4C2 

C9 

01780 

01790 

01800 

01810 

B4C3 

FE  DA 

01820 

B4C5 

CO 

01830 

B4C6 

Dl 

01840 

B4C7 

CD  3F  DD 

01850 

B4CA 

11  02  17 

01860 

B4CD 

ED  53  Dl  B8 

01870 

B4D1 

C9 

01880 

01890 

01900 

01910 

8000 

01920 

01930 

8000 

CD  6E  BC 

01940 

8003 

21  00  81 

01950 

8006 

11  40  00 

01960 

8009 

3E  2C 

01970 

B00B 

CD  9E  BC 

01980 

800E 

21  00  60 

01990 

8011 

11  7D  01 

02000 

8014 

3E  16 

02010 

8016 

CD  9E  BC 

02020 

8019 

CD  71  BC 

02030 

801C 

21  00  70 

02040 

801F 

11  70  00 

02050 

8022 

3E  BE 

02060 

8024 

CD  9E  BC 

02070 

8027 

C9 

02080 

02090 

02100 

02110 

8100 

02120 

02130 

8100 

54  55  52  42 

8104 

4P  53  41  56 

8108 

45 

02140 

8109 

00  00  00  00 

02150 

810D 

00  00  00 

02160 

8110 

01 

02170 

8111 

FF 

02180 

8112 

02 

02190 

8113 

7D  01 

02200 

8115 

00  BB 

02210 

8117 

FF 

02220 

8118 

7D  01 

02230 

811A 

00  00 

02240 

811C 

F5 

02250 

811D 

CD  88  08 

02260 

8120 

Fl 

02270 

8121 

30  OB 

02280 

8123 

3E  C3 

02290 

8125 

21  68  B4 

02300 

8128 

32  98  BC 

02310 

812B 

22  99  BC 

02320 

812E 

0E  00 

02330 

8130 

CD  0F  B9 

02340 

8133 

CD  09  B9 

02350 

8136 

B7 

02360 

8137 

C9 

02370 

02380 

8138 

(8138) 

break 


POP  HL 
POP  DE 
JR  NC. break 
LD  (SBB48) .HL 
LD  (6B85F) .DE 
LD  A.6FF 
LD  (6B85D) .A 
CALL  82614 
CALL  6B909 
CALL  6B900 
RET 


.OutpucpolnCer  holen 
.Lange  • 

.Outputpointer  setzen 
; Rest  lange  ln  Header 

.als  letzten  Block  setzen 
i Abspeichern 
.L  ROH  ausschalten 
|U  ROH  einschalten 
.zurueck 


Baudrate  Indern 


baud 


CP 

EDA 

.USING  ? 

RET 

NZ 

.nein.  dann  zurdck 

POP 

DE 

.ERROR  Adresse  holen 

CALL 

SDD3F 

.Blanks  Uberlesen 

LD 

DE. 61702 

.Code  für  3600  Baud 

LD 

(6B8D1) .DE 

.einschrelben 

RET 

.zurueck 

>■  Saveroutine  von  TurboSeve  ■■■> 


ORG  68000 


CALL 

6BC6E 

LD 

HL.headei 

LD 

DE. 60040 

LD 

A.62C 

CALL 

SBC9E 

LD 

HL. 66000 

LD 

DE.6017D 

LD 

A.616 

CALL 

6BC9E 

CALL 

SBC71 

LD 

HL. 67000 

LD 

DE. 60070 

LD 

A.6BE 

CALL 

6BC9E 

RET 

iHotor  einschalten 
i Adresse  von  Header 
; Lange 
; Kennbyte 

.direkt  saven 
.Adresse  von  Autostart 
.Lange 
. Kennbyte 
.direkt  saven 
.Motor  aus 

.Adresse  Ersatzroutine 

.Linge 

.Kennbyte 

.direkt  saven 

.zurueck 


'künstlicher'  Header 


ORG  68100 

header  TEXT  "TURBOSAVE* 


DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFH 

DEFH 

DEFB 

DEFH 

DEFH 

PÜSH 

CALL 

POP 

JR 

LD 


fehlerl  LD 

CALL 

CALL 


600.600.600. 

600.600.600 

601 

6PF 

602 

6017D 

6BB00 

6FF 

60170 

60000 

AF 

60888 

AF 

NC, (ehlerl 

A.6C3 

HL.6B468 

(6BC98)  .  A 

(6BC99)  .HL 

C.600 

6B90F 

6B909 

A 


.Abschluß  von  Autostart 
.Vektoren  wieder  erstellen 


.springe,  wenn  Fehler 
.Vektor  auf  Ersatzroutine 


.zurueck  und  Fehler  neiden 
.Basic  einschalten 
<L  ROH  ausschalten 
lC-0.  well  Fehler 


END 


Errors.  00000  Harnlngs.  00000 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 


,=  TurboSave 

fu«r  Schneider  CPC  464 
Baslclader 

_ _ _  lC)  Oktobar  1985  fay  H. Schulz 

Hasch lnenprogramn  laden 

addr=66000:zalle=3000:pruefB=C 

MEMORY  addr-1 : RESTORE  3000 
READ  aS : a=ASC (aS) 

1F  a-35  OR  e-61  OR  a-60  THEN  1160 
wert=VAL("6"+aS) :POKE  addr.wert 
addr=addr*l > pruef s=pruef s+wert 
GOTO  111Q 

wert=VAL (*6"+MIDS  (a$.2)> 

IF  a<>35  THEN  1200 

*Mr-?.rt,pru.f..pru.r.mL(*a*eLEFTS  (HEXS  (wert. 4)  .2)) 

OUTO  1110 

IF  a<>61  THEN  1240 

«iT!'™??'"??  ™E? PBINT  'F,hl#r  ln  29119  ■>“»i»=end 

zolle=zeile*10ipruefs=0 

GOTO  1110 

IF  w.rtOpruefs  THEN  PRINT  "Fehler  ln  Zell.  "i,.ll.lEND 

hÖde""™”"""”““’*  Yurbo8ava-pr°9r amm  erstellen 
INK  0.13. INK  1.0. BORD ER  13 
PEN  1: PAPER  0 

PRINT  " r* .STRINGS (38 . "— •) . . 

PRINT  " ITurboSave  (c)  Oktober  1985  by  H.Schulzl". 

PRINT  "l", STRINGS (38.*-*) | ■« s, 

PRINT  *r*. STRINGS  (38.  *-•);*,*, 

ooJÜI  ??c  und  PLAY  Sruecken  dann  Leer-I". 

PRINT  I " .TAB (15) I "taste  druecken  I * .TAB (40) . • I * . 

PRINT  "<•■  .STRINGS  (38. "-")  1*4"  .  ‘  ' 

PRINT  " r" .STRINGS (38.*-*) .*,". 

PRINT  " I " . SPACES (38)  . ■ I  * . 

PRINT  "«■".STRINGS(38."-">  ."4*; 

HHILE  INKEYS <>*  ".HEND 

LOCATE86°9  !"8lB  1'urboSa''*'pro9r ann  saven 
PRINT  "Noch  eine  Kopie  7  J> a  /  N) ein’ 
aS=UPPER5 (INKEYS) 

IF  as<  >"J"  AND  aSO*N*  THEN  2180 
IF  aS=*N"  THEN  END 
LOCATE  2.9 
PRINT  6PACES  (38) 

GOTO  2140 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


06.  B9 
3E.C3 
23. B8 
06.03 
22.48 
ED.  52 
B8.3E 
3F .  DD 
3E.2C 
70.11, 
*8100 
7D.01, 
32.98. 


.CD. 03 
21. C3 
•  617A 
CD.8S 
B8 .  ED 
E5.2A 
FF. 32 
11.02 
CD.9E 
70.00 
54.55 
00.  BB 
BC.22 


B9.CD.FC 
B4. 32.07 
C3.00.BB 
24, 79. CI 
53.5F.B8 
48.B8.19 
5D.B8.CD 
17. ED. 53. 
BC.21.00, 
3E.BE.CD, 
52.42.4F, 
.FF.7D.01, 
99.BC.0E. 


23.21 
AC.22 
#7000 
El.  20 
21. FF 
E5.CD 
14.26 
D1.B8 
60.11, 
9E.BC. 
53.41, 
00.00, 
00. CD, 


68.B4.il 
i 08 . AC.C3 
E5.C5.4F 
3E.32.5E 
F7.19.3F 
14. 26. El 
CD. 09 . B9 
C9 . #8000 
7D.01.3E 
C9.00.70 
56.45.00, 
F5.CD.88, 
0F.B9.CD, 


.70.00 
, 2  3 . B8 
, CD. 06 
, B8 . ED 
.38.25 
,01.30 
CD. 00 
CD.6E 
16.  CD 
11.70 
00.00 
08. Fl, 
09. B9, 


.3E. BE. CD. 36 
.06. 85. CD. 13 
B9.CD.03.B9 
.53. 64. B8. ED 
,21.00.08.22 
0F.22.4B.B8 
B9.C9.FE.DA, 
BC.21.00. 81, 
9E.BC.CD.71, 
00.3E.BE. CD. 
00.00.00.00, 
30 . OB. 3E.C3 . 
87. C9. <0863 


,28.30 
27,  B7 
21.47 
43.66 
SF.B8 
ED. 53, 
C0. Dl, 
11.40, 
BC.21, 
9E.BC. 
01. FF. 
21.68. 


,=0916 

-0849 

=0963 

=09F3 

-085F 

-0A91 

-0BE9 

•090F 

-0837 

-08F1 

•0505 

-O7C0 


ACHTUNG:  NiemitRUN’  laden, weil  derComputerdann 
»abstürzt«  und  der  Speicher  gelöscht  wird! 

Die  Punkte  3  und  4  sind  in  der  Reihenfolge  beliebig. 

5.  Wählen  Sie  die  Baudrate: 


SPEED  WRITE  0 
SPEED  WRITE  1 
USING 


1000  Baud 
2000  Baud 
3600  Baud 


6.  Speichern  Sie  das  Programm  wieder  ab.  (z.B.:  SAVE  "PRO- 
GRAMM"  oder  SAVE  ”BILD"B,&C00O,&400O) 


Wenn  Sie  also  ein  Basicprogramm  unter  TurboSave  mit  3600 
Baud  abspeichern  wollen  und  die  Punkte  1  und  2  erfüllt  ha- 

Sie  a,so  nur  LOAD  ”PROGRAMM:LOAD 
TURBOSAVE  :USING:SAVE  "PROGRAMM”  ein 


Allgemeiner  Hinweis. 

TurboSave  benutzt  den  Speicherbereich,  in  dem  sonst  die 
Texte  des  KEY-Kommandos  abgelegt  werden.  Deshalb  darf 
diese  Funktion,  während  man  mit  TurboSave  arbeitet,  nicht 
benutzt  werden,  weil  sich  sonst  der  Computer  »aufhängt« 
Das  Programm  kann  durch 

POKE  &BC98,&CF:POKE  &BC99, 

&EA:POKE  &BC9A,&A4:POKE  &AC07,&C9 

deaktiviert  werden.  TurboSave  kann  auch  bei  angeschlosse¬ 
nem  Diskettenlaufwerk  genutzt  werden,  wenn  man  folgende 
beachtet:  Vor  dem  Laden  des  Programms  muß  ein 
TAPE-(bzw.  CAS  bei  Vortex)  Befehl  gegeben  werden.  Nach 
dem  Laden  darf  kein  derartiges  Kommando  mehr  gegeben 
werden.  e  e 


Erklärungen  zum  Assemblerlisting: 

Damit  ein  im  Speicher  befindliches  Programm  nicht  durch 

das  Laden  gelöscht  wird,  hat  es  einen  Autostartmechanismus, 

der  folgendermaßen  funktioniert:  Zuerst  wird  durch  das 
Kommando  LOAD  ein  Maschinenprogramm  in  den  Bereich 
ab  &BB00  geladen.  An  dieser  Stelle  befinden  Sich  normaler¬ 
weise  Sprungtabellen  (Vektoren),  die  dazu  dienen,  es  Pro¬ 
grammen  möglich  zu  machen,  die  im  RAM  laufen,  auf  Routi¬ 
nen  zuzugreifen,  die  im  ROM  stehen,  der  parallel  zum  RAM 
liegt.  Deshalb  wird  dieser  Bereich  von  sonst  keinem  anderen 
Programm  überschrieben.  Diese  Vektoren  werden  auch  vom 
Basic  genutzt,  können  aber  für  den  Zeitraum  des  Einlesens  ge¬ 
nutzt  werden.  Nach  dem  Lesen  springt  das  Basic  den  Vektor 
CAS  IN  CLOSE  (&BC7A)  an,  an  dessen  Stelle  sich  jetzt  aber 
ein  Sprung  zu  der  Autostartroutine  befindet.  Nachdem  der 
untere  (Lower)  ROM  eingeschaltet  und  der  Basic-ROM  (obe¬ 
rer:  Upper  ROM)  ausgeschaltet  worden  ist,  wird  die  Routine 
CAS  IN  CLOSE  nachgeholt.  Die  Ersatzroutine,  die  die 
Routine  CAS  IN  CLOSE  ersetzt,  wird  nun  in  den  KEY- 
Speicher  (&B468)  geladen.  Diese  Ersatzroutine  verhindert 
das  »Zerstückeln«  in  2K-Byte-Blöcke,  was  sonst  durch  die 
normale  Routine  geschieht.  Der  ERROR- Vektor  des  Basic, 
der  vor  jedem  Syntax-Error  angesprungen  wird,  wird  auf  die 
Routine  "baud"  »verbogen«,  um  den  USING-Befehl  zum 
Umschalten  auf  3600  Baud  benutzen  zu  können.  Damit  das 
Basic  wieder  läuft,  wird  in  das  Benutzerfeld  des  Headers  (Vor¬ 
spann  mit  Name  usw.  eines  Programms  auf  Cassette)  gesprun¬ 
gen,  um  von  dort  die  Vektoren  wieder  herzustellen  und  den 
CAS  OUT  DIRECT-Vektor(&BC98)aufdie  Ersatzroutine  zu 
legen.  Um  das  Abschlußprogramm  im  Benutzerfeld  des  Hea¬ 
ders  zur  Verfügung  zu  stellen  und  weil  die  Vektoren  nur  kurz¬ 
zeitig  überschrieben  werden  dürfen,  bedarf  es  einer  besonde¬ 
ren  Save-Routine  ab  &8000,  die  vom  Basiclader  aus  gestartet 
werden  kann.  Dieser  Routine  werden  die  Autostartroutine  ab 
&6000,  die  Ersatzroutine  ab  &7000  und  der  »künstliche«  Hea¬ 
der,  dem  Abschlußteil  ab  &8100  zur  Verfügung  gestellt. 

Helge  Schulz 
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I  ii  Mi  ii  mm  ii  ii  ii  ii  ii  n  n  m  ii  n  ii  m  im  n  ii  im  n 


imnimm 


. CP/M 


iiiiiiiiiiiiMiiiiiiiiiiiiiiiiiiiiiiiMiiinniiiiiiiiiiiiii 


Einführung  einer  neuen  Artikelserie 

Es  ist  allgemein  bekannt,  daß  die 
Schneider  Computer  »CP/M-fähig« 
sind  und  daß  CP/M  zum  Lieferumfang 
gehört,  wenn  man  ein  Floppy-Laufwerk 
für  seinen  CPC  464  erwirbt  oder  gar  ei¬ 
nen  CPC  664  oder  6128  besitzt.  Ent¬ 
sprechend  der  großen  Verbreitung  der 
Schneider  Computer  liest  man  in  den 
einschlägigen  Fachzeitschriften  immer 
häufiger  von  CP/M-Einführungskursen, 
obwohl  für  viele  Anhänger  der  »neuen« 
Prozessoren  und  Betriebssysteme  CP/M 
längst  totgesagt  wurde.  Trotz  MS- 
DOS,  UNIX  oder  CP/M  86  kommt  man 
aber  an  der  Tatsache  nicht  vorbei,  daß 

Gratis- 

Tools 

der  Markt  immer  noch  einige  zigtau¬ 
send  unterschiedliche  CP/M-Program- 
me  parat  hält  und  daß  nach  wie  vor 
Computer  produziert  werden,  die  CP/M 
fahren  können.  Einige  CP/M-Pro- 
gramme  werden  von  Schneider  auf,  den 
Geräten  beiliegenden,  Disketten  mitge¬ 
liefert  und  sind  in  dieser  Zeitschrift 
schon  teilweise  behandelt  worden,  so 
z.B.  PIP  und  SUBMIT.  Als  Alternative 
zu  den  allgemeinen  Einführungskursen 
in  die  Benutzung  von  CP/M  Komman¬ 
doprogrammen  (COM-Dateien),  soll 
die  mit  diesem  Beitrag  eröffnete  Serie 
eine  praxisorientierte,  zielgerichtete 
Anleitung  zum  Selbstverwirklichen 
von  CP/M-Programmen  darstellcn.  In 
diesem  Zusammenhang  werden  die 
Entwicklungswerkzeuge  (Tools)  vorge¬ 
stellt,  die  auf  den  CP/M-Disketten  von 
Schneider  mitgeliefert  werden.  Es  han¬ 
delt  sich  dabei  um  die  Programme  ED, 
ASM,  LOAD  und  DDT.  Darüber  hin¬ 
aus  wird  erläutert,  wie  man  aus  selbst¬ 
geschriebenen  Programmen  die  CP/M- 
eigenen  Routinen  zum  Dialog  mit  Peri¬ 
pheriegeräten  aufruft.  Peripherie  im 
Sinne  von  CP/M  sind  u.a.  Tastatur, 
Bildschirm,  Floppylaufwerke  und 
Schnittstellen  für  Drucker  o.ä.  Des 
weiteren  wird  behandelt,  wie  man  sich 
die  Firmware-Routinen  des  Schneider 
Computers  zunutze  machen  kann. 
Doch  vorweg  einiges  zu  CP/M  selbst. 
Der  Auftakt 

Das  Betriebssystem  CP/M  besteht  im 
wesentlichen  aus  zwei  Hauptteilen.  Er¬ 
stens  dem  vom  verwendeten  Computer 
unabhängigen  »basic  disc  operating  Sy¬ 
stem«  (BDOS)  und  dem  gerätespezifi¬ 
schen  Teil,  dem  »basic  input/output  Sy¬ 
stem«  (BIOS).  Ebenfalls  systemun¬ 
abhängig  ist  der  »Einsiedler«  »console 
command  processor«  (CCP).  DerCCP 
ist  ins  CP/M  eingebaut  und  in  der  Lage, 
die  CP/M-eigenen  Befehle  zu  verar¬ 
beiten  und  stellt  die  Kommunikation 
zum  Benutzer  her.  DerCCP  benutzt  als 
Prompt  die  Kennzeichnung  des  gegen¬ 
wärtig  selektierten  Diskettenlaufwerks 


(z.B.:  A  ).  Der  CCP  versteht  folgende, 
interne  Kommandos  (CP/M  2.2):  DIR. 
ERA,  REN,  TYPE  und  SAVE.  Das  Be¬ 
schreiben  der  CP/M-internen  Befehle 
soll  nicht  Gegenstand  dieser  Betrach¬ 
tungen  sein,  ebenfalls  nicht  die  exter¬ 
nen  CP/M-Kommandos,  die  nicht  un¬ 
mittelbar  zu  den  Software-Entwick¬ 
lungstools  zählen,  z.B.  PIP,  STAT  und 
SYSGEN.  Damit  die  Notwendigkeit 
der  Tools  deutlich  wird,  soll  zunächst 
der  Werdegang  eines  CP/M-Programms 


grammierung  übertragbar,  d.h.  wer  eine 
Assemblersprache  kennt  und  ihre  Re¬ 
geln  erlernt  hat,  kann  sich  relativ  leicht 
in  andere  Assembler  hineinfinden.  Dies 
gilt  ganz  besonders  in  diesem  Fall,  weil 
die  Prozessoren  verwandt  sind.  Zum 
zweiten  sind  gute  Tools  recht  teuer.  Zu¬ 
mindest  diejenigen  Leser,  die  nicht 
sicher  sind,  ob  sie  voll  ins  Assembler¬ 
programmieren  einsteigen  wollen,  ha¬ 
ben  eine  kostenlose  Probiermöglich¬ 
keit.  indem  sie  die  vorhandenen  Werk¬ 


umrissen  werden. 

Vom  Problem  zum  Programm  in  vier 
Schritten 

Am  Anfang  steht  die  Problemanalyse, 
d.h.  der  Software-Entwickler  formuliert 
die  Aufgabe  des  Programms  und  fragt 
nach  den  möglichen  Lösungswegen, 
auf  denen  er  mit  seinem  Programm  die 
gestellte  Aufgabe  bearbeiten  will.  Bei 
diesem  ersten  Schritt  ist  noch  kein 
Computer  notwendig,  wohl  aber  fun¬ 
dierte  Kenntnisse  der  einzusetzenden 
Programmiersprache.  Die  Eigenheiten 
der  verwendeten  Sprache  können  näm¬ 
lich  den  Lösungsweg  entscheidend  be¬ 
einflussen.  Dieser  Schritt  gilt  allgemein, 
nicht  nur  in  diesem  Beispiel. 

1.  Die  Sprache:  8080-Assembler 
Hier  ergibt  sich  das  erste  Problem.  Fol¬ 
gerichtig  wäre,  wenn  man  als  Program¬ 
miersprache  Z80- Assembler  ansetzen 
würde,  jedoch  setzen  die  Tools  auf 
Schneider  Floppy’s  den  legendären  Mi¬ 
kroprozessor  8080  von  INTEL  voraus. 
Da  aber  der  Z80  ein  erweiterter  8080- 
Prozessor  ist,  versteht  er  die  Maschi¬ 
nensprache  des  8080.  Darum  kann  man 
8080-Programme  auf  Z80  fahren.  Un¬ 
glücklicherweise  ist  aber  nur  der  Ma¬ 
schinencode  aufwärtskompatibel  und 
nicht  die  Mnemonik,  d.h.  der  Assem¬ 
blercode.  Für  alle  diejenigen,  die  gerade 
dabei  sind  sich  Z80-Assembler  anzueig¬ 
nen,  bedeutet  diese  Artikelserie  zu¬ 
nächst  ein  Umdenken.  Diejenigen,  die 
erst  mit  dieser  Serie  in  die  Zauberwelt 
derAssemblerprogrammierungeinstei- 
gen,  sind  im  Vorteil,  weil  sie  nicht  die 
Mnemoniks  vermixen.  Aus  dem  zuletzt 
behandelten  ergibt  sich  die  Frage: 
Lohnt  es  sich,  den  Assemblercode  eines 
»toten«  Prozessors  zu  lernen,  nur  um 
die  paar  Programme  auf  der  Schneider 
Diskette  benutzen  zu  können?  Auf 
diese  Frage  kann  man  mit  mehreren 
Argumenten  antworten.  Erstens  sind 
die  Grundlagen  der  Assemblerpro¬ 


zeuge  nutzen.  Drittens  ist  anzumerken, 
daß  es  selbstverständlich  Möglich¬ 
keiten  gibt,  die  Z80-spezifischen  Be¬ 
fehle  in  den  8080-Code  einzubauen. 
Ein  Weg  hierzu  ist  der  Gebrauch  von 
sogenannten  Assemblerdirektiven,  doch 
dazu  viel,  viel  später.  Sollte  es  sich  im 
Verlauf  dieses  Kurses  heraussteilen, 
daß  Sie  »nur  noch  Assembler  machen« 
wollen,  dann  bietet  sich  die  Gelegenheit, 
zu  den  vorhandenen  Tools  noch  artver¬ 
wandte  zu  erwerben.  Entsprechende 
Produkte  werden  im  Verlauf  dieses 
Kurses  noch  vorgestellt. 

2.  Schreiben  des  Quellprogramms 
Ist  man  mit  sich  einig  geworden,  wie  das 
Programm  arbeiten  soll,  muß  es  in  den 
Computer  öingeben.  Bei  BASIC- 
Programmen  ist  dieses  Problem  schnell 
bewältigt,  der  BASIC-Editor  ist  bei 
Schneider  Computern  eingebaut.  Wie 
bekommt  man  aber  ein  Assembler- 
Quellprogramm  (Sourcecode)  in  sei¬ 
nen  Computer?  Mit  einem  allgemeinen 
Texteditor  ist  dieser  Schritt  der 
Software-Entwicklung  kein  Problem. 
Wer  sich  in  dieser  Hinsicht  bereits  aus¬ 
gestattet  hat,  kann  in  der  vorliegenden 
Serie  das  Kapitel  über  den  von  Schnei¬ 
der  gelieferten  Texteditor  ED.COM  ge¬ 
trost  vergessen,  denn  ED  ist  noch  aus 
den  längst  vergangenen  Tagen,  an  die 
sich  nur  noch  die  Altmeister  erinnern. 
Damals,  in  den  dunklen  Zeitaltern  der 
vor-bildschirmorientierten  Editoren, 
erstellte  man  ASCII-Dateien  noch  auf 
Fernschreibern  (TTY).  Entsprechend 
den  damaligen  Gegebenheiten  ist  ED 
zeilenorientiert.  Trotzdem  besitzt  ED 
einige  angenehme  Eigenschaften,  die 
mit  neuzeitlichen  Editoren  durchaus 
mithalten  können,  z.B.  Suchen  von 
Textstellen,  Anzeigen  der  Zeilennum¬ 
mern,  Textausschnitte  verschieben  und 
Texte  zusammenfügen.  Aus  diesem 
Grund  und  weil  es  vielleicht  einige  Be¬ 
nutzer  gibt,  die  noch  keinen  Texteditor 
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haben,  darf  eine  Beschreibung  von  ED 
in  dieser  Artikelserie  nicht  fehlen.  Da¬ 
mit  eine  Erläuterung  der  Ediermög¬ 
lichkeiten  von  ED  nicht  mit  der  CP/M- 
Einführung  von  Horst  Franke  kolli¬ 
diert  und  wertvolle  Druckseiten  mit 
Doppelmoppel  gefüllt  werden,  sei  an 
dieser  Stelle  auf  Heft  5/85  Seite  40,  Heft 
10/85  Seite  46  f.  und  Heft  11/85  verwie¬ 
sen.  Hier  wurde  ED  behandelt.  In  dieser 
Serie  wird  dann  nur  noch  bei  Bedarf 
konkret  auf  ED  eingegangen. 

3.  Assemblieren  und  Laden  des  fertigen 
Quellprogramms 

ASM.COM  nimmt  dem  Software- 
Entwickler  ein  mühseliges  Geschäft  ab, 
das  allen  Schreibern  von  Maschinen¬ 
code-Routinen  in  BASIC  sicherlich  ge¬ 
läufig  ist,  nämlich  das  Übersetzen  aus 
der  Assemblersprache  in  HEX-Code. 
ASM  ist  in  der  Tat  ein  »richtiger«  As¬ 
sembler  mit  allen  Schikanen.  Mit  ihm 
ist  komfortables  Programmieren  in 
8080-Assembler  möglich,  wie  wir  im 
Detail  noch  sehen  werden.  ASM  über¬ 
setzt  jedoch  nicht  direkt  in  lauffähigen 
Maschinencode,  sondern  in  einen 
»Zwischencode«  in  INTEL-HEX-For- 
mat.  Das  hat  natürlich  gute  Gründe,  auf 
die  später  noch  eingegangen  wird.  Lauf¬ 
fähigen  Code  erhält  man,  wenn  man 
eine  von  ASM  erzeugte  HEX-Datei  mit 
dem  CP/M-Programm  LOAD.COM 
endgültig  übersetzt  und  als  COM-Datei 
in  den  Computer  zur  Ausführung  lädt. 

4.  Testen  des  fertigen  Programms 
Was  sich  viele  Benutzer  für  BASIC 
wünschen,  bekommen  sie  für  8080- 
Assembler  ebenfalls  gratis,  nämlich  ei¬ 
nen  Debugger.  Das  Programm  DDT. 
COM  ist  in  der  Lage,  ein  ladbares  Ma¬ 
schinenprogramm  zu  analysieren. 
DDT  kann  nicht  nur  das  zu  un¬ 
tersuchende  Programm  Schritt  für 
Schritt  abarbeiten  und  nach  jedem  Be¬ 
fehl  den  Inhalt  der  Prozessorregister 
anzeigen,  sondern  der  Benutzer  kann 
auch  den  Inhalt  der  Register  ändern. 
Auch  den  Speicherinhalt  kann  man 
sich  ansehen  und  ändern.  DDT  ist  da¬ 
bei  ebenfalls  in  der  Lage,  den  Spei¬ 
cherinhalt  in  Assemblercode  rückzu¬ 
übersetzen. 

Praktische  Anwendung 
Wer  auf  den  Geschmack  gekommen  ist, 
diese  Artikelserie  zu  verfolgen,  wird  für 
seine  Mühe  selbstverständlich  belohnt. 
Er  ist  nach  dieser  praxisorientierten 
Einführung  nicht  nur  in  der  Lage,  ei¬ 
gene  Programme  zum  Laufen  zu  bringen, 
sondern  erhält  wertvolle  Hinweise  zu 
den  Schneider  Computern  allgemein, 
sowie  zu  CP/M  2.2  im  besonderen.  Zu 
guter  Letzt  fällt  auch  mindestens  ein 
Beispielprogramm  ab,  das  in  dieser 
Serie  erarbeitet  wird.  Es  handelt  sich 
dabei  um  einen  »Tastatur-Analysator«, 
der  dem  Benutzer  Aufschluß  darüber 
gibt,  wie  gegenwärtig  die  Tastenbele¬ 
gung  unter  dem  geladenen  Betriebssy¬ 
stem  aussieht  (bekanntlich  lassen  sich 
die  Tasten  umkonfigurieren).  Zuerst  je¬ 
doch  kommt  eine  Menge  Arbeit:  Im 
nächsten  Teil  lernen  wir  zunächst  den 
guten,  alten  8080  kennen  und  stellen  sei¬ 
nen  Befehlssatz  dem  Z80  gegenüber. 

Dipl.Ing.  Henry  Bruhns 
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Basicerweiterungen  für  den  CPC  464 
sind  zur  Zeit  groß  in  Mode.  Es  vergeht 
kaum  ein  Monat,  in  dem  die  Ma¬ 
schinensprache-Magier  nicht  neue 
RSX-Befehle  aus  ihrem  Hut  zaubern 
und  in  der  Fachpresse  dem  staunenden 
Publikum  präsentieren.  Falls  Sie  als 
CPC-Zauberlehrling  diese  Technik  noch 
nicht  beherrschen,  lassen  Sie  sich  da¬ 
von  nicht  zu  sehr  beeindrucken!  Bei  ge¬ 
nauem  Hinsehen  stellt  sich  nämlich 
heraus,  daß  RSX-Erweiterungen  nichts 
anderes  als  gut  getarnte  CALL-Befehle 
sind.  Der  einzige  Unterschied  besteht 
darin,  daß  Maschinenprogramme  mit 
einem  Namen  anstatt  einer  Adresse  auf¬ 
gerufen  werden. 

In  dieser  Folge  werden  wir  uns  mit  einer 


Interessant  für  uns  ist  immerhin  die 
Zeile  80.  Bereits  in  der  letzten  Folge  ha¬ 
ben  wir  erwähnt,  daß  sich  die  Steuer¬ 
zeichen  des  CPC  mit  neuen  Funktionen 
belegen  lassen,  und  wie  Sie  sehen,  ist  in 
diesem  Fall  das  Zeichen  CHRS(  1)  miß¬ 
braucht  worden. 

Bevor  wir  zu  weiteren  Anwendungen 
kommen,  soll  jedoch  geklärt  werden, 
wie  der  CPC  464  die  Steuerzeichen  in¬ 
tern  verarbeitet.  Erste  Station  ist  natür¬ 
lich  der  Basic-Interpreter,  der  alle  auf 
einen  PRINT-Befehl  folgenden  Zeichen 
der  Betriebssystemroutine  TXT  OUT¬ 
PUT  übergibt.  Diese  wiederum  ruft  per 
CALL-Befehl  die  Routine  TXT  OUT 
ACTION  auf,  und  hier  ist,  wie  der 
Name  schon  andeutet,  einiges  los.  Zu- 


Steuerzeichen  eine  neue  Funktion  er¬ 
halten,  so  müssen  wir  also  nur  die  ent¬ 
sprechende  Eintragung  in  der  Tabelle 
ändern  -  Sie  werden  gleich  sehen,  wie 
einfach  das  ist! 

Doch  zunächst  sollten  Sie  das  Pro¬ 
gramm  »Sprungtabelle«  abtippen  und 
starten;  es  gibt  die  gesamten  Tabellen 
übersichtlich  auf  dem  Bildschirm  aus. 
ln  Kapitel  9  Ihres  CPC-Bedienungs- 
handbuches  finden  Sie  noch  weitere  In¬ 
formationen,  die  Sie  mit  den  Daten  in 
der  Tabelle  vergleichen  können. 

In  der  linken  Bildschirmspalte  sehen 
Sie  die  Adresse,  ab  der  die  Informatio¬ 
nen  für  ein  bestimmtes  Zeichen  zu  fin¬ 
den  sind.  Jede  Eintragung  in  der  Ta¬ 
belle  umfaßt  drei  Bytes.  Das  erste  Byte 


alternativen  Methode  beschäftigen, 
neue  Befehle  zu  erfinden.  Sie  ist  wesent¬ 
lich  einfacher  zu  handhaben  als  die 
RSX-Methode,  und  Sie  brauchen  kein 
Maschinensprache-Spezialist  zu  sein, 
um  damit  eigene  Erweiterungen  zu  rea¬ 
lisieren.  Einzige  Voraussetzung  ist,  daß 
Sie  schon  ein  bißchen  mit  Hex-Zahlen 
vertraut  sind,  denn  das  dürfte  klar  sein: 
ohne  Hex-Zahlen  keine  Hexerei! 

Doch  zunächst  zur  Einstimmung  ein 
kleines  Programm  aus  unserer  Serie 
»Grober  Unfug  mit  dem  CPC«.  Was 
dieses  nichtsnutzige  Stück  Software  auf 
den  Bildschirm  bringt,  muß  man  sehen, 
um  es  zu  glauben: 


5  REM  Einen  Namen  hat  es  nicht  ver¬ 
dient 

10  MEMORY  &9FFF 
20  FOR  s=&A000  TO  &A00A 
30  READ  a$:POKE  s,VAL(”&”+a$) 
:NEXT 

40  DATA  21,B8,B2,36,00,CD,1A,07, 
C3,5F,06 

50  POKE  &B2C7,0:POKE  &B2C8,&A0 
60  LOCATE  1,20 

70  INPUT”Bitte  eine  Zahl  von  0-7  :”,n 
80  MODE  1:PRINT  CHR$(1); 
CHR$(n)  ; 

90  PRINT”  BASIC  1.0”:GOTO  60 


nächst  werden  drei  Fragen  geklärt: 

1.  Ist  der  Grafikschreibmodus  einge¬ 
schaltet? 

In  diesem  Fall  wird  sofort  zur  Routine 
GRA  WT  CHAR  verzweigt,  die  das 
Zeichen  aufGrafikcursor-Position  aus¬ 
gibt.  Da  dieser  Test  gleich  zu  Anfang  er¬ 
folgt.  werden  die  Steuerbefehle  nach 
TAG  nicht  ausgeführt,  sondern  erschei¬ 
nen  als  Zeichen  auf  dem  Bildschirm. 

2.  Fehlen  noch  Parameter  zu  einem  voran¬ 
gegangenen  Steuerzeichen? 

Falls  ja,  wird  das  Zeichen  in  einem  Zwi¬ 
schenspeicher  (Control-Buffer)  abge¬ 
legt,  auf  den  wir  noch  zu  sprechen 
kommen. 

3.  Handelt  es  sich  um  ein  Steuerzeichen? 

Erst  wenn  dieser  Test  negativ  ausfällt, 
wird  das  Zeichen  der  Routine  TXT  WT 
CHAT  übergeben,  die  es  auf  den  Bild¬ 
schirm  befördert.  Handelt  es  sich  aber 
um  ein  Steuerzeichen  (ASCII-Num- 
mer<32),  so  entnimmt  das  Betriebssy¬ 
stem  einer  Tabelle,  was  als  nächstes  zu 
tun  ist. 

Und  damit  wären  wir  bei  der  "Sprung- 
tabelle  Steuerzeichen”,  die  freundlicher¬ 
weise  gleich  beim  Einschalten  des 
Rechners  in  den  RAM-Bereich  von 
Adresse  &B2C3  bis  &B322  kopiert  und 
dort  auch  fleißig  benutzt  wird.  Soll  ein 


gibt  die  Anzahl  der  Parameter  an.  die 
auf  das  Steuerzeichen  folgen,  dann 
kommt  die  Adresse,  die  angesprungen 
wird,  sobald  alle  Parameter  versammelt 
sind;  und  zwar  zuerst  das  Low-Byte  und 
dann  das  High-Byte.  Beachten  Sie  bitte 
diese  Reihenfolge! 

Nehmen  wir  uns  als  Beispiel  CHR$(0) 
vor.  Parameter  werden  hier  keine  er¬ 
wartet,  deshalb  steht  an  Adresse  &B2C3 
eine  0.  Die  dazugehörige  Sprungadresse 
ist  &14E2.  Schaut  man  in  einem  ROM- 
Listing  für  den  CPC  464  nach,  so  findet 
man  an  dieser  Stelle  nur  ein  RETURN; 
das  Zeichen  CHR$(0)  hat  also  keine  be¬ 
sondere  Wirkung  -  oder  sagen  wir  bes¬ 
ser,  es  hat  im  Moment  noch  keine 
Wirkung.  Das  werden  wir  nämlich  so¬ 
fort  ändern! 

Zum  Beispiel  gibt  es  im  Betriebssystem 
eine  Routine  namens  KM  WAIT  KEY, 
die  nichts  anderes  tut,  als  auf  einen  Ta¬ 
stendruck  zu  warten.  Sie  kann  von 
Basic  aus  mit  CALL  &BB  18  aufgerufen 
werden  -  tragen  wir  die  Adresse  doch 
einmal  versuchsweise  in  die  Spruneta- 
belle  bei  CHR$(0)  ein: 

POKE  & B2C4,&  1 8: POKE  &B2C5,&BB 

Starten  Sie  zur  Sicherheit  noch  einmal 
das  Sprungtabellen-Programm,  um  zu 
kontrollieren,  ob  die  Adresse  korrekt 
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angekommen  ist,  und  probieren  Sie 
dann 

PRINT  CHR$(0) 


POKE  &  B2C  D,&8 1 :  PO  KE  &B2CE,&BB 

Unser  neuer  Befehl  WAITKEYS  sieht 
danach  so  aus: 


In  der  Tat  meldet  sich  derCPC  nun  erst 
zurück,  nachdem  Sie  eine  beliebige  Ta¬ 
ste  gedrückt  haben.  Geben  wir  dem 
Kind  also  noch  einen  Namen; 

WAITKEY$=CHRS(0) 

Und  schon  haben  wir  so  etwas  Ähn¬ 
liches  wie  einen  neuen  Befehl. 

In  einem  Programm  könnte  das  etwa 
so  aussehen: 

10  POKE  &B2C4,&18:POKE  &B2C5, 
&BB:WAITKEY$=CHR$(0) 

100  PRIN'T’Weiter  mit  einer  beliebigen 
Taste”;WAITKEY$ 


DER 


WAITKEY$=CHR$(3)+CHR$(0)+ 

CHR$(2) 

Perfekt  ist  er  damit  allerdings  immer 
noch  nicht.  DerCPC  speichert  nämlich 
alle  Zeichen,  die  während  eines  Pro¬ 
grammablaufes  eingegeben  werden,  in 
einem  Tastaturpuffer.  Drückt  nun  ein 
ungeduldiger  Anwender  bereits  vor  un¬ 
serem  PRINT  WAITKEYS  ein  paar  Ta¬ 
sten,  so  wird  an  dieser  Stelle  nicht  mehr 
gewartet,  sondern  es  geht  gleich  weiter. 
Probieren  Sie  es  aus: 


10  WAITKEY$=CHR$(3)+CHR$(0)+ 
CHRS(2) 

20  PRINT’Bitte  ein  paar  Tasten  druecken” 

30  FOR  i=l  TO  3000: next 
40  PRINT”Ich  warte  !”;WAITKEY$; 
CHR$(17) 

Teil  3 


CPC 

Was  wir  also  brauchen,  ist  ein  Befehl, 
der  den  Tastaturpufferlöscht.  DerCPC 
664  kennt  zu  diesem  Zweck  die  CLEAR 
Sie  müssen  nur  beachten,  daß  ein  RUN-,  INPUT-Anweisung,  der  CPC  464  aber 
NEW-  oder  CLEAR-Befehl  natürlich  leider  nicht,  oder  besser  gesagt:  noch 
auch  die  Variable  WAITKEYS  löscht.  nicht! 


Schauen  wir  uns  noch  ein  paar  weitere 
Möglichkeiten  an.  Etwas  professionel¬ 
ler  würde  die  Angelegenheit  wirken, 
wenn  der  Cursor  auf  der  Bildfläche  er¬ 
scheint,  während  auf  einen  Ta¬ 
stendruck  gewartet  wird.  Zwar  gibt  es 
bereits  die  Steuerzeichen  CHR$(2)  und 
CHR$(3),  mit  denen  der  Cursor  aus- 
und  eingeschaltet  werden  kann,  aber 
bei  Versuchen  stellt  man  enttäuscht 
fest,  daß  sie  nur  auf  INPUT-Befehle 
wirken.  Der  Grund:  Hier  wird  nicht  der 
»Hauptschalter«  im  Betriebssystem, 
sondern  ein  untergeordneter  Anwender¬ 
schalter  betätigt  Die  Routinen,  die  wirk¬ 
lich  das  Sagen  haben,  sind 

TXT  CUR  OFF,  Einsprungadresse 
&BB84 

TXT  CUR  ON,  Einsprungadresse 
&BB81 

Also  korrigieren  wir  die  Steuerzeichen 
nach  unseren  Wünschen!  Zuerst  die 
Eintragung  für  CHR$(2)  (Cursor  off); 

POKE  &B2CA,&84:POKE  &B2CB, 
&BB 

und  dann  für  CHR$(3)  (Cursor  on): 


Spezialisten  wissen,  daß  man  mit 
CALL  &BB03  auch  beim  CPC  464  den 
Tastaturpuffer  löschen  kann,  es  han¬ 
delt  sich  hierbei  um  die  Routine  KM 
RESET.  Sie  sperrt  allerdings  auch  die 
Break-Funktion  und  setzt  alle  Funk¬ 
tionstasten  im  Zehnerblock  zurück. 

Wenn  Sie  das  in  Kauf  nehmen  wollen, 
können  Sie  sich  natürlich  ein  Steuer¬ 
zeichen  aussuchen  und  die  Adresse 
&BB03  in  die  Sprungtabelle  eintragen. 

Es  gibt  aber  noch  eine  bessere  Lösung. 
Doch  vorher  eine  Frage:  Ist  Ihnen 
schon  aufgefallen,  daß  die  Standard¬ 
adressen  in  der  Sprungtabelle  etwas 
anders  aussehen,  als  unsere  neuen  Ein¬ 
tragungen?  Der  Unterschied  kommt 
dadurch  zustande,  daß  über  die  Sprung¬ 
tabelle  die  Betriebssystemroutinen  di¬ 
rekt  im  ROM  aufgerufen  werden 
(Adressbereich  &0000  -  &3FFF). 

Bei  einem  Basic-CALL  müssen  dage¬ 
gen  spezielle  Einsprungadressen  im 
RAM  benutzt  werden  (Adressbereich 
&B900  -  &BD37),  da  das  Betriebssy¬ 
stem  zu  diesem  Zeitpunkt  normaler¬ 
weise  »abgemeldet«  ist  und  erst  durch 


Serie 


diese  speziellen  Vektoren  aktiviert  wird. 

Versuchen  Sie  also  besser  nicht,  die 
normalen  Adressen  in  der  Sprungta¬ 
belle  mit  CALL  aufzurufen.  Sie  landen 
damit  nur  in  dem  zum  ROM  parallel 
liegenden  unteren  RAM-Bereich,  und 
ein  mörderischer  Absturz  ist  so  gut 
wie  sicher. 

Über  die  Steuerzeichen  können  wir  je¬ 
doch,  wie  gesagt,  das  Betriebssystem- 
ROM  persönlich  ansprechen,  und  da¬ 
mit  auch  die  eigentliche  CLEAR 
INPUT-Routine  an  der  Adresse 
&1CED,  für  die  nämlich  kein  Einsprung¬ 
vektor  existiert!  Wählen  wir  diesmal 
CHR$(30): 

POKE  &B31E,&ED:POKE  &B31F,&1C 

Damit  können  Sie  jetzt  einen  neuen  Be¬ 
fehl  definieren 

CLEARIN  PUT$=CHR$(30) 

oder  WAITKEYS  ergänzen: 

WAITKEY$=CHR$(30)+CHR$(3)+ 

CHR$(0)+CHR$(2)+CHR$(7) 


Dps  Zeichen  CHR$(7)  sorgt  noch  dafür, 
daß  der  Tastendruck  mit  einem  Tonsi¬ 
gnal  quittiert  wird.  Wie  Sie  sehen,  kön¬ 
nen  auf  diese  Weise  ganze  Unterpro¬ 
gramme  in  einer  Zeichenkette  abgelegt 
und  mit  PRINT  namentlich  aufgerufen 
werden. 


Bisher  haben  wir  nur  Routinen  ohne 
Einsprungbedingungen  mit  den  Steuer¬ 
zeichen  aufgerufen.  Es  gibt  aber  eine 
Reihe  interessanter  Routinen  im  Be¬ 
triebssystem,  die  eine  bestimmte  Bele¬ 
gung  der  Z-80-Register  erfordern.  Da 
wir  mit  den  Steuerzeichen  auch  Para¬ 
meter  übergeben  können,  stellt  das  im 
Prinzip  kein  Problem  dar.  Nur  wird  in 
den  meisten  Fällen  ein  kleines  Maschi¬ 
nenprogramm  nötig  sein,  das  die  Werte 
vorher  in  die  richtigen  Register  ein¬ 
sortiert.  Deshalb  möchten  wir  den  As¬ 
semblerprogrammierern  noch  ver¬ 
raten,  wie  die  Parameterübergabe 
funktioniert. 


Beim  Aufruf  einer  Routine  über  die 
Sprungtabelle  liegt  folgende  Situation 
vor: 

-  Der  Akku  und  das  C-Register  ent¬ 
halten  den  zuletzt  übergebenen  Wert. 

-  Das  B-Register  enthält  die  Anzahl  der 
Parameter. 

-  Das  HL-Registerpaar  enthält  die 
Basisadresse  des  Control-Buffers,  in 
dem  das  Steuerzeichen  und  die  folgen¬ 
den  Parameter  gespeichert  sind  (maxi¬ 
mal  9). 

Der  erste  Wert  ist  also  an  der  Adresse 
HL+ 1  zu  finden,  der  zweite  Wert  an  der 
Adresse  HL+2  usw. 

Natürlich  können  Sie  auch  eigene  Pro¬ 
gramme  schreiben  und  per  Steuer¬ 
zeichen  aufrufen  -  lassen  Sie  sich  etwas 


1  86  CPC  63 


einfallen!  Beachten  Sie  aber  bitte  dabei, 
daß  die  Zeichen  7  bis  11  und  13  intern 
vom  Editor  benutzt  werden,  mit  dem 
Sie  Ihre  Programme  eingeben  und  kor¬ 
rigieren.  Wenn  Sie  hier  etwas  ändern, 
sägen  Sie  an  dem  Ast,  auf  dem  Sie 
sitzen. 

Jetzt  aber  zu  einer  weiteren  interes¬ 
santen  Anwendung  der  Steuerzeichen. 

Testen  Sie  das  folgende  Programm: 

5  REM  Demo  Grafikstring 
10  MODE  1 

20  INK  0,0:INK  1,14:INK  2,6:INK  3,1 
30  READ  ch 

40  IF  ch  >=0THEN  a$=a$+CHR$(ch): 
GOTO  30 

50  LOCATE  2,2:PRINT  a$;a$;a$ 

60  DATA  22,1,15,2,214,124,8,215 
70  DATA  8,8,15,3,222,223,8,8,10 
80  DATA  143,143,8,8,15,1,148,144 
90  DATA  22, 0,-1 

Hier  werden  die  Steuerzeichen  ein¬ 
gesetzt,  um  einen  Grafikstring  zu  erzeu¬ 
gen.  Was  das  bedeutet,  sehen  Sie  auf 
dem  Bildschirm:  anwenderdefinierte, 
mehrfarbige  Zeichen,  die  sich  durchaus 
über  mehrere  Zeilen  und  Spalten  er¬ 
strecken  können.  Benutzt  werden 
dabei: 

-  Der  Transparentmodus  CHR$(22) 

-  Die  Cursorsteuerbefehle  CHR$(8)  - 
CHRS(ll) 

-Der  Pen-Befehl  CHR$(15) 

-  Zeichen  aus  dem  normalen  Zeichen¬ 
satz  des  CPC 

Die  Vorteile  dieses  Verfahrens  liegen 
auf  der  Hand:  Die  Grafik  kann  sehr 
einfach  und  schnell  mit  PRINT  auf¬ 
gerufen  und  bei  Bedarf  in  einer  Datei 
auf  Cassette/Diskette  gespeichert  wer¬ 
den.  Trotzdem  wird  diese  Program¬ 
miertechnik  relativ  selten  angewendet, 
und  das  aus  gutem  Grund.  Die  ganze 
Sache  hat  nämlich  einen  bösen  Haken! 
Versuchen  Sie  doch  einmal,  das  Häus¬ 
chen  in  die  Bildschirmmitte  zu  set¬ 
zen: 

LOCATE  20,12:PRINT  a$ 

Wider  Erwarten  erscheint  es  am  linken 
Rand  -  was  ist  passiert?  Sehr  einfach: 
Der  Interpreter  des  CPC  weiß  natürlich 
nicht,  daß  es  sich  bei  a$  um  ein  Häus¬ 
chen  mit  einer  Ausdehnung  von  2X2 
Zeichen  handelt.  Er  erkennt  hier  nur 
eine  Zeichenkette  mit  der  stattlichen 
Länge  von  27  Zeichen.  Daß  es  sich  größ¬ 
tenteils  um  Steuerzeichen  handelt,  in¬ 
teressiert  ihn  nicht  weiter. 

Bevor  ein  Text  auf  den  Bildschirm  ge¬ 
langt,  wird  überprüft,  ob  er  überhaupt 
noch  in  die  aktuelle  Zeile  hineinpaßt. 
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Das  ist  natürlich  nicht  der  Fall,  wenn 
wir  a$  in  MODE  1  ab  Bildschirmmitte 
ausgeben  wollen,  da  ja  insgesamt  nur40 
Spalten  zur  Verfügung  stehen.  Also  sen¬ 
det  der  Interpreter  vorher  zwei  Steuer¬ 
zeichen  ans  Betriebssystem:  CHR$(13) 
setzt  den  Cursor  an  den  linken  Rand 
(Carriage  Return,  ENTER),  und 
CHR$(10)  in  die  nächste  Zeile  (Line- 
feed,  CURSOR  DOWN). 

Was  können  wir  dagegen  unterneh¬ 
men?  Vielleicht  die  beiden  Steuer¬ 
zeichen  mit  Hilfe  der  Sprungtabelle  sa¬ 
botieren?  Keine  schlechte  Idee,  aber  lei¬ 
der  brauchen  wir  ja  gerade  die 
CURSOR  DOWN-Funktion,  um  unser 
Häuschen  zu  bauen.  So  geht  es  also 
nicht,  aber  andererseits  sind  die  Grafik¬ 
strings  zu  praktisch,  um  an  dieser  Stelle 
schon  aufzugeben. 

Was  uns  fehlt,  ist  ein  Trick,  der  dem  In¬ 
terpreter  vortäuscht,  es  wäre  noch  reich¬ 
lich  Platz  in  der  Zeile.  Ob  er  uns  wohl 
glaubt,  daß  der  Bildschirm  in  MODE  1 
120  Spalten  breit  ist?  Versuchen  wir  es: 

WINDOW  1,120,1,25 

Erstaunlicherweise  wird  das  ohne  Feh¬ 
lermeldung  akzeptiert,  der  Effekt  ist 
aber  trotzdem  gleich  null.  Also  gut 
Freundchen,  dann  werden  wir  jetzt  mal 
ein  ernstes  Wort  mit  Gevatter  Betriebssy¬ 
stem  reden! 

Dazu  benutzen  wir  die  Speicherstelle 
&B28B,  in  der  sich  der  CPC  464  den 
rechten  Rand  des  aktuellen  Textfen¬ 
sters  merkt.  Schauen  wir  vorsichtshal¬ 
ber  nach,  was  da  normalerweise 
drinsteht: 

PRINT  PEEK(&B28B) 

ergibt  in  MODE  1  den  Wert  39.  Lassen 
Sie  sich  dadurch  nicht  verwirren,  der 
CPC  rechnet  intern  mit  Textkoordi¬ 
naten  von  0  bis  39  anstatt  von  1  bis  40. 
So,  und  jetzt  kommt's  drauf  an: 

POKE  &B28B,120:LOCATE  12,20: 
PRINT  a$ 

Und  siehe  da:  Plötzlich  können  wir  un¬ 
ser  Häuschen  an  jeder  beliebigen  Bild¬ 
schirmposition  erscheinen  lassen,  ohne 
daß  der  I nterpreter  zuschlägt.  Ergänzen 
Sie  also  bitte  das  Demoprogramm 
durch  folgende  Zeilen: 

10  MODE  l:POKE  &B28B,120 

55  FOR  i=l  TO  100 

56  LOCATE  RND*38+1,RND*23+1: 
PRINT  aS 

57  NEXT 

Und  schon  sehen  Sie  eine  ganze  Stadt 
auf  dem  Bildschirm! 

Größere  Verwirrung  scheint  dieser 
POKE  im  CPC  nicht  zu  erzeugen.  Nur 
der  Editor  ist  manchmal  etwas  durchein¬ 
ander,  wenn  der  Cursor  im  Ready- 
Modus  den  rechten  Rand  überquert.  Im 
Notfall  können  Sie  mit  einem  MODE- 
Kommando  schnell  wieder  zu  norma¬ 
len  Verhältnissen  zurückkehren. 
Damit  wären  wir  fast  schon  am  Ende 


unserer  Steuerzeichen-Orgie  angelangt. 
Doch  es  gibt  noch  eine  weitere  interes¬ 
sante  Möglichkeit,  die  wir  Ihnen  nicht 
vorenthalten  wollen. 

Wer  schon  einmal  Spiele  auf  dem  CPC 
inszeniert  hat,  weiß,  daß  es  nicht  nur 
darauf  ankommt,  Grafik  schnell  und 
effektvoll  auf  den  Bildschirm  zu  brin¬ 
gen.  Oft  ist  es  genauso  wichtig,  sie  wie¬ 
der  verschwinden  zu  lassen.  Will  man 
einen  Grafikstring  isoliert  löschen,  so 
besteht  natürlich  die  Möglichkeit, 
einen  entsprechenden  Löschstring  aus 
Leerzeichen  zu  konstruieren  und  an 
der  gleichen  Bildschirmposition  aus¬ 
zugeben. 

Ideal  ist  dieses  Verfahren  jedoch  nicht. 
Abgesehen  vom  Programmieraufwand 
wird  dabei  auch  ein  eventuell  vorhan¬ 
dener  Hintergrund  in  Mitleidenschaft 
gezogen,  so  daß  womöglich  häßliche 
Löcher  in  der  Bildschirmszenerie 
entstehen. 

Ideal  wäre  es,  wenn  wir  die  Grafik  auf 
einen  beliebigen  Hintergrund  zeichnen 
könnten,  der  nach  dem  Löschen  unver¬ 
sehrt  wieder  auftaucht.  Dieser  Effekt 
läßt  sich  normalerweise  nur  mit  auf¬ 
wendigen  Sprite-Routinen  erzielen, 
doch  die  Programmierer  des  Loco- 
motive-Basics  haben  sich  dafür  noch 
etwas  anderes  einfallen  lassen:  den 
XOR-Modus. 

Er  wird  im  Handbuch  leider  nur  sehr 
kurz  erwähnt,  deshalb  wollen  wir  hier 
etwas  genauer  erklären,  wie  er  eigent¬ 
lich  funktioniert. 

XOR-Modus  bedeutet,  daß  die  Farb¬ 
stiftnummer  des  Hintergrundes  mit  der 
Farbstiftnummer  eines  neuen  Bild¬ 
punktes  XOR-verknüpft  wird.  Ange¬ 
nommen,  wir  haben  den  Hintergrund 
mit  PEN  1  gezeichnet  und  geben  dann 
ein  Zeichen  mit  PEN  2  aus,  was  pas¬ 
siert?  Fragen  wir  doch  unseren  CPC,  er 
muß  es  ja  schließlich  wissen: 

PRINT  1  XOR  2 

Aha!  Die  resultierende  Farbe  wird  also 
die  Farbe  von  PEN  3  sein.  Und  jetzt 
wird  es  interessant.  Was  ist,  wenn  wir 
das  Zeichen  noch  einmal  an  der 
gleichen  Stelle  im  XOR-Modus  aus¬ 
geben? 

PRINT  1  XOR  2  XOR  2 

Das  Ergebnis  ist  1,  womit  der  Hinter¬ 
grund  wieder  hergestellt  wäre.  Der 
XOR-Modus  erlaubt  es  also,  ein  Zei¬ 
chen  zu  löschen,  indem  wir  es  einfach 
ein  zweites  Mal  auf  den  Bildschirm 
schreiben. 

Ein  anschauliches  Beispiel  für  diesen 
Vorgang  ist  derTextcursor  des  CPC,  der 
grundsätzlich  im  XOR-Modus  auf  dem 
Bildschirm  erscheint.  Beschreiben  Sie 
den  Bildschirm  mit  verschiedenen  Far¬ 
ben  und  fahren  Sie  mit  dem  Cursor  dar¬ 
über  -  auf  diese  Weise  können  Sie  sich 
ein  Bild  davon  verschaffen,  wie  es  funk¬ 
tioniert. 

Soweit,  so  klar:  Mit  Hilfe  des  Steuer¬ 
zeichens  CHR$(23)  kann  beim  CPC 
464  der  XOR-Modus  eingeschaltet  wer¬ 
den,  nebst  einem  OR-  und  einem  AND- 
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Modus,  die  für  unsere  Grafikexperi- 
mente  aber  nicht  weiter  interessant 
sind.  Doch  leider  -  vielleicht  ahnen  Sie 
es  bereits  -  gibt  es  wieder  ein  übles  Hin¬ 
dernis:  Dieses  Steuerzeichen  wirkt  nur 
auf  den  Grafikschreibmodus.  Im  Gra¬ 
fikmodus  (nach  TAG)  funktionieren 
aber  wiederum  unsere  Steuerzeichen 
zur  Erzeugung  von  Grafikstrings  nicht. 
Das  Programmiererdasein  ist  ein  har¬ 
tes  Los,  vielleicht  sollte  man  den  Com¬ 
puter  verkaufen  und  lieber  Blumen 
züchten? 

Doch  glücklicherweise  sind  wir  in  der 
Lage,  Ihnen  eine  Alternative  anzu¬ 
bieten:  Ein  kleines  Maschinenpro¬ 
gramm  von  32  Bytes  Länge,  das  an  der 
entscheidenden  Stelle  im  Betriebssy¬ 
stem  eingreift  und  kurzerhand  die 
Textausgabe  auf  die  Grafikausgabe 
umleitet.  Sie  können  es  in  dem  Listing 
»XOR-TEXT«  bewundern  und  der  De¬ 
moteil  zeigt  auch  gleich,  wie  gut  das 
funktioniert. 

Bei  genauem  Hinsehen  fällt  allerdings 
auf,  daß  unser  munteres  Sprite  durch 
den  XOR-Effekt  die  Farbe  von  PEN  3 
(Magenta)  annimmt,  wenn  es  die 
roten  Hintergrundlinien  überdeckt. 
Falls  Sie  bereit  sind,  eine  der  vier  Far¬ 
ben  in  MODE  1  zu  opfern,  können  Sie 
auch  das  noch  ändern:  Ersetzen  Sie  in 
Zeile  150  INK  3,8  durch  INK  3,11,  und 
die  Sache  ist  perfekt. 

Zum  Umgang  mit  der  XOR-Erwciterung 
noch  ein  paar  Worte:  Sie  wird  auto¬ 
matisch  eingebunden,  wenn  Sie  mit 
CHR$(22)  den  Transparentmodus  ein- 
oder  ausschalten;  danach  wirkt  das 
Steuerzeichen  CHR$(23)  auch  im  Text¬ 
modus.  Genau  wie  der  betrügerische 
POKE  &B28B.120,  wird  sie  durch  ein 
MODE-Kommando  unwirksam,  muß 
also  wieder  neu  initialisiert  werden. 
Übrigens  ist  es  durchaus  einen  Versuch 
wert,  den  Demoteil  des  XOR-Pro- 
gramms  zu  einem  spannenden  La¬ 
byrinthspiel  zu  erweitern.  Doch  damit, 
lieber  Leser,  sind  Sie  jetzt  an  der  Reihe. 
Viel  Spaß! 


10  MODE  2: INK  0» 13: INK  1,0 

20  PRINT  TAB (25) ; "Sprung t ab el 1 e  Steuerzeichen" 

30  PRINT 

40  FOR  adr-ScB2C3  TO  &B2F0  STEP  3 
50  PRINT  TAB  <5) ; ; HEX* (adr ) ; 

60  PRINT  TAB (13) ; PEEK  <adr ) ; 

70  PRINT  TAB  ( 17)  s  HEX*  (PEEK  <adr  +  l)  ,2)  ; 

80  PRINT  TAB (21 >?"&"} HEX* (PEEK (adr+2) ,2) ? 

90  PRINT  T AB ( 28 ) " CHR* ( " ; M I D* ( STR* (ch),2)s">"? 

100  PRINT  TAB (39) ; "**" 5  TAB (45) ; j HEX* (adr+48)  ; 

110  PRINT  TAB (53) ; PEEK (adr+48) 5 

120  PRINT  TAB (57) 5 ; HEX* (PEEK (adr+49) ,  2)  ; 

130  PRINT  TAB (61 >  5 "&" ; HEX* (PEEK <adr+50> ,2) ; 

140  PRINT  TAB (68) "CHR* ( " ?  MID* (STR* ( ch+16) ,2)  ;  " ) " 
150  ch=ch+l : NEXT  adr 


10  REM  *****  XOR  —  TEXT  ***** 

20  MODE  1  s FOR  adr=&BDF4  TO  ?<BE13 
30  READ  a*:w=VAL("&"+a*) : s=s+w 
40  POKE  adr, w: NEXT 

50  IF  s<  >3833  THEN  PRINT"Dataf ehl er  ! " : END 
60  REM  Eintragung  in  die  Spr ung tabel 1 e 
70  REM  und  Initialisierung: 

80  POKE  &B306, &F4: POKE  &B307,&BB 
90  PRINT  CHR* (22) ? CHR* (0) 

100  DATA  21, 01, BE, B7, 28, 03, 21,0C 
110  DATA  BE,  22,  91 ,  B2,  C9, 2A,  8F ,  B2 
120  DATA  7D, AC, Al, AC, OE, FF, 18,03 
130  DATA  3A,8F,B2,47,EB,C3,E8,BD 
140  REM  *****  Demo  XOR  -  TEXT  ***** 

150  CLSHNK  0,0:  INK  1,6:  INK  2,  11:  INK  3,8 
160  REM  Grafikstring  erzeugen: 

170  READ  ch 

180  IF  ch >=0  THEN  b*=b*+CHR* ( ch ) : GOTO  170 
190  DATA  240,10,8,8,242,202,243,10,8,8,241,-1 
200  REM  Hintergrund  erzeugen: 

210  PEN  1 

220  FOR  i =1  TO  1000:PRINT  CHR* (RND+10+192) 3 : NEXT 

230  LOCATE  1,1: PEN  2 

240  REM  XOR-Modus  einschalten 

250  REM  und  Interpreter  betruegen: 

260  PRINT  CHR* (23) 5 CHR* ( 1 ) : POKE  &B28B, 120 
270  x  =  I NT ( RND*38+2 > : y= I NT ( RND*23+ 1 ) 

280  LOCATE  x,y: PRINT  b* 

290  FOR  i =1  TO  1000: NEXT 

—  300  LOCATE  x,y:PRINT  b*:GOTO  270 - 


:4<**** 

Assembl erl i st i ng  XOR 

-TEXT 

***>t::+: 

BDF4 

10 

ORG 

&BDF4 

5  wird  mit  CHR* (22)  angesprungen 

BDF4 

2101BE 

20 

LD 

HL, NORM 

jlndirection  fuer  Normalmodus 

BDF7 

B7 

30 

OR 

A 

;Parameter  nach  CHR*(22) 

BDF8 

2803 

40 

■JR 

Z, INDIR 

; falls  0 

BDFA 

210CBE 

50 

LD 

HL, TRANS 

Slndirection  fuer  Transp.modus 

BDFD 

229 1B2 

60 

INDIR 

LD 

(&B291 ) , HL 

BEOO 

C9 

70 

RET 

BE01 

2A8FB2 

80 

NORM 

LD 

HL, (&B28F) 

; h=Paper-, l=Penmask 

BE04 

7D 

90 

LD 

A,  L 

sFarbmaske  fuer  Screen 

BEOS 

AC 

100 

XOR 

H 

; zusammen se  t  zen : 

BE06 

Al 

110 

AND 

C 

BE07 

AC 

120 

XOR 

H 

BEOS 

OEFF 

130 

LD 

C,  &FF 

;Bitmaske  fuer  Screen 

BEOA 

1803 

140 

JR 

SCREEN 

BEOC 

3A8FB2 

150 

TRANS 

LD 

A,  (&B28F) 

;  F'enmask 

BEOF 

47 

160 

SCREEN 

LD 

B,  A 

BE  10 

EB 

170 

EX 

DE,  HL 

; Screenadresse  nach  hl 

BEI! 

C3E8BD 

180 

JP 

&BDE8 

;SCR  WRITE  (Graf i kausgaberout i ne) 

Programm:  xor 

text 

Start 

:  &BDF4  Ende: 

&BE13  Laenge:  &0020  Fehler:  0 

J 
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1 . Tips  &  Tricks' 


Natürlich  kann  man  auch  mit  noch  kleineren  Werten  ar¬ 
beiten,  aber  dann  geht  das  Ganze  auf  Kosten  der  Da¬ 
tensicherheit.  Dem  Experimentieren  sind  hierbei  jedoch 
keine  Grenzen  gesetzt. 

Stellt  sich  nur  noch  die  Frage,  wie  wir  die  neue  Tabelle  dem 
DOS  klarmachen,  ln  ein  ROM  läßt  sich  ja  nichts  poken. 
Dazu  machen  wir  einfach  einen  RST  &18  zur  Adresse  C60D 
im  Floppy-ROM. 

Diese  Adresse  wird  jedesmal  beim  Einschalten  angesprun¬ 
gen  und  erfordert  in  HL  die  neue  Tabelle.  Also  laden  wir  ein¬ 
fach  HL  mit  der  Tabelle,  springen  übereine  ROM-CALL  diese 
Adresse  an  und  übergeben  die  neuen  Werte.  Den  Rest  erledigt 
das  Floppy-ROM  auf  so  komfortable  Weise,  daß  durch  un¬ 
sere  Routine  nicht  ein  einziges  Byte  Speicherplatz  verbraucht 
wird  und  tatsächlich  bis  zum  Ausschalten  der  Floppy  aktiv 
bleibt. 

Die  Vorteile  für  dieses  Verfahren  liegen  auf  der  Hand.  Kurzes 
Programm,  keine  Kollision  mit  bestehenden  Programmen, 
volle  Ausnutzung  der  Floppygeschwindigkeit. 

Tippen  Sie  also  den  kleinen  Basiclader  ein  und  speichern  Sie 
ihn  ab,  bevor  Sie  ihn  starten.  Der  Lader  löscht  sich  nach  der 
Installation  der  neuen  Parameter  von  selbst.  Für  MC- 
Interessierte  ist  das  sehr  kurze  Assemblerlisting  abgedruckt. 
Das  Label  ROMCAL  spezifiziert  hier  die  Adresse  und 
ROM-Nummer,  die  angesprungen  werden  soll.  Das  Label 
NEWTAB  enthält  die  neuen  Laufwerksdaten. 

Viel  Spaß  beim  beschleunigten  Arbeiten  mit  dem 
Schneider  Laufwerk. 

Volker  Schick 


☆ 


☆ 


9® 


☆ 


Es  sollte  wirklich  kaum  zu  glauben  sein,  daß  die  ohnehin 
schon  schnelle  Schneider-Floppy  noch  zu  beschleunigen 
ist. 

Wer  sich  allerdings  das  ROM  Listing  der  DD1  im  Data  Becker 
Floppy-Buch  genauer  ansieht,  wird  schnell  erkennen,  daß 
dieser  Effekt  mit  relativ  einfachen  Mitteln  zu  erreichen  ist. 
Wie  schon  bekannt,  beschäftigen  sich  bei  Amstrad  immer 
gleich  mehrere  Programmierer  mit  einem  Programm.  Ge¬ 
nauso  muß  es  auch  beim  AMSDOS  gewesen  sein.  Die  Grund¬ 
werte  für  Verzögerungszeiten  bei  Schreib-  und  Leseprozedu¬ 
ren  wurden  hier  nämlich  sehr  willkürlich  gewählt. 

Sie  können  durch  ein  kurzes  Assemblerlisting  modifiziert 
werden.  Ab  Adresse  C5D4  im  ROM  7,  dem  Floppy-ROM, 
steht  eine  Tabelle  in  der  die  Parameter  für  die  Laufzeiten  fest¬ 
gelegt  sind. 

Diese  Werte  sind  wie  folgt: 


adresse 

wert 

bemerkung 

C5D4 

0032 

Hochlaufzeit  fuer  diskmotor 

C5D6 

OOFA 

Tickerlaufzeit  fuer  floppymotor 

C5D8 

AF 

??????? 

C5D9 

OFOC 

Delayloop 

C5DB 

01 

Head  Unload  Time 

C5DC 

03 

Head  Load  Time 

Die  Werte  in  dieser  Tabelle  scheinen  rein  willkürlich  ge¬ 
wählt  zu  sein,  wenn  man  alle  Werte  durch  Ausprobieren  ein 
wenig  manipuliert,  so  ergeben  sich  bei  gleicher  Datensicher¬ 
heit  wesentlich  höhere  Geschwindigkeiten  bei  jeder 
Floppyoperation. 

Die  nachfolgenden  Werte  ergeben  eine  Geschwindigkeits¬ 
steigerung  von  25%.  Dropouts  oder  Datenverluste  verlassen 
hierbei  auch  nicht  den  gewohnten  Rahmen,  und  auch  die 
mechanische  Beanspruchung  des  Laufwerks  ist  nicht  zu 
hoch.  Lediglich  die  Fehlermeldung  DISK  MISSING  er¬ 
scheint  schneller  als  gewohnt  Durch  Drücken  der  Taste  R 
wird  jedoch  ein  neuer  Leseversuch  vorgenommen,  der  das  ge¬ 
wünschte  Ergebnis  bringt. 


Folgende  Werte  sind  also  zu  empfehlen: 


C5D4 

0023 

hochlauf zeit  Diskmotor 

C5D6 

00C8 

Tickerlaufzeit  Floppymotor 

C5D8 

01 

???? 

C5D9 

010A 

Delayloop 

C5DB 

00 

Head  Unload  Time 

C5DC 

03 

Head  Load  Time 

10  FOR  adr=  &1000  TO  &1012 
20  READ  byte$ : byte=VAL ( "&"+byte$ ) 

30  POKE  adr.byte 
40  NEXT  adr 

50  CALL  &1000 : CLS : PRINT"TURBO  DOS  1 . 0  ON 
"  :  NEW 

60  DATA  21, A, 10, DF, 7, 10, C9 , D , C6 , 7 , 23 , 0 , C 
8,0, 1,1, A, 0,3,0 

BIG  ASS  PASS  1  . 

NO  ERROR 


1000  210A10  LD  HL, NEWTAB 

1003  DF0710  RST  18H, ROMCAL 

1006  C9  RET 

1007  0DC607  ROMCAL: DB  0DH,C6H,07H 

100A  2300C800NEWTAB : DB  23H , 00H , C8H , 00H 
100E  01010A00  DB  1H.1H.AH.00 


NO  ERROR 
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Tips  &  Tricks 


Druckertest 

m*  ”5  - 


Der  folgende  Einzeiler  fragt  den  Status  eines  angeschlosse¬ 
nen  Druckers  vorm  Beginn  eines  Ausdrucks  ab,  d.h.,  ob  der 
Drucker  ein-  oder  ausgeschaltet  ist.  Diese  Routine  sollte  man 
am  Anfang  von  Programmen  mit  Druckerbenutzung  (LIST 
#8  oder  PRINT  #  8)  einbinden  oder  zumindest  an  den  Be¬ 
ginn  des  Druckerunterprogramms  setzen. 

Die  Utility  besteht  aus  nachfolgender  Zeile  (  ####  = 
fiktive  Zeilen-Nummer): 


#  #  #  #  IF  INP(&F500)=90  THEN  PRINT'Drucker  ein- 
schalten!":Print  CHRS(7);:GOTO  #  #  #  # 


Durch  das  Kommando  INP(&F500)  wird  die  I/O-Schnittstelle 
auf  Inhalt  abgefragt.  Im  Falle  eines  betriebsbereiten  Druckers 
ist  dieser  Wert  =  26.  Bei  abgeschaltetem  oder  "off-line" 
Drucker  beträgt  dieser  Wert  =  90. 

Im  Falle  des  betriebsbereiten  Druckers  springt  das  Pro¬ 
gramm  in  die  nächste  Zeile  und  die  Zeile  ####  kommt 
nicht  zur  Ausführung.  Im  anderen  Fall  wird  das  Programm 
zum,  fortlaufenden  Monitorausdruck  "Drucker  einschalten!” 
unter  gleichzeitigem  Ertönen  der  "Glocke", veranlaßt,  bis  der 
Drucker  an  den  Computer  angeschaltet  wird.  Dann  stoppt 
der  Monitorausdruck  und  auch  das  akustische  Signal  wird 
eingestellt.  Das  Programm  beginnt  die  Abarbeitung  der  näch¬ 
sten  Zeile  nach  #  #  #  #  . 

Es  ist  zweckmäßig, die  Zeilen  nach  #  #  #  #  mit  ‘  CLS'  zu 
beginnen,  um  einen  leeren  Bildschirm  zu  haben. 

B.  Westphal,  Germering 


Laufwerkstatus  abfragen 


☆ 


☆ 


Wer  schon  einige  Zeit  den  CPC  mit  Diskettenlaufwerk  be¬ 
treibt,  hat  sicherlich  festgestellt,  daß  sich  die  Fehlermeldun¬ 
gen  des  Laufwerks  durch  ein  "on  error  goto”,  nicht  abfangen 
lassen.  Um  das  Überschreiben  einer,  in  mühevoller  Arbeiter¬ 
stellten  Grafik  (z.B.  ein  Platinenlayout),  nur  weil  die  Diskette 
nicht  korrekt  eingelegt  ist,  zu  verhindern,  eignet  sich  das 
nachfolgende,  kurze  Basic-Programm. 

Hierbei  sind  natürlich  die  Print-Anweisungen  des  Demo- 
Programms  durch  geeignete  Maßnahmen  zu  ersetzen  (z.B. 
akustisches  Signal).  Das  Programm  läuft  auf  dem  CPC  464 
und  fragt  nur  den  Status  des  angemeldeten  Laufwerks  ab. 

Klaus  Hillebrand 

1  REM  ********************** 

2  REM  LAUFWERKSTATUS  ABFRAGE 

3  REM  ********************** 

4  OUT ( &FA7E ) , 1 : FOR  I  =  1  TO  1000:NEXT:OU 

T ( &FB7F ) , 4 : OUT ( &FB7F ) , ( -PEEK ( &A700 ) +2 ) : S 

T=INP ( &FB7F ) : OUT ( &FA7E ) ,0 

5  RD  =  ST  AND  32 

6  IF  RD=0  THEN  PRINT" DISKETTE  IM  ANGEMEL 

DETEN  LAUFWERK  NICHT  EINGELEGT" : STOP 

7  WP=ST  AND  64 

8  IF  WP=64  THEN  PRINT"DISKETTE  IM  ANGEME 

LDETEN  LAUFWERK  NICHT  BESCHREIBBAR" : STOP 

9  PRINT "DISKETTE  KORREKT  EINGELEGT  UND  B 

ESCHREIBBAR" 


Tips  zum  Eintippen  von  Data-Zeilen! 

Das  Eintippen  von  Data-Zeilen  mit  HEX-Werten  ist  oft  sehr 
zeitaufwendig!  Wesentlich  einfacher  geht  es  mit  folgender 
Funktions-Tastenbelegung: 

Key  128,”,&” 
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Staubschutzhauben 

aus  weichem  Kunstleder,  beigefarben  für  Computer  und  Peripherie, 
f.  Grünmonitor  ~  ~~  \ 

Best-Nr.  6409  r  ' 

37,50  DM 

f.  Farbmonitor 
Best-Nr.  6410 

37,50  DM 


für  Drucker  NLO  401 
Best.-Nr.  6408 

22,50  DM 


464  f.  Floppy  DDI-1 
6406  Best.-Nr.  6407 

22,50  DM  19,90  DM 


Fischertechnik-computing 

Neue  Anwendungsmöglichkeiten  für  Ihren 
CPC464  bietendie  Fischertechnik-compu¬ 
ting-  Bausatze. 

Simulation  von  Bewegungsabläufen  und 
spielerisches  Erlernen  von  Steuerungen  mit¬ 
tels  Computer. 


computing-Baukasten  für  10  Modelle  Bestell-Nr.  6500 
Plotter/Scanner  6501 

Trainings-Roboter  6502 

Interface  Schneider  passend  zu  allen  3  Artikeln 
incl.  Software  auf  Cassette  6503 

computing-Netzgerät 

(zum  Betrieb  der  3  Artikel  erforderlich)  6504 


Preis  199,- DM 

449  -  DM 
499,-  DM 

249  -  DM 

59,95  DM 


Dhne  Abbildung: 

SchiBldir-Stirao-Kabtl 

3,5  mm  Klinken-Stecker/ 

.  pol.  DIN-Stecker,  150  cm  lang 

6401  16,50  DM 


3,5  mm  Klinken-Stecker/ 

!  Chinch-Stecker,  1 50  cm  lang 


I  Best-Nr.  6400 


ir  CRC  464 

lesl-Nt  6403 

ür  CRC  664  +  6128 

St-Nf  6550 


Joystick-Adapter 

Zum  Anschluß  von  2  Standard- 
Joysticks  an  Schneider  Computer 

17,90  DM 


iSI-Nf  6404 


Schneider  CRC  464,  Ideal 
|  für  Einsteiger. 

3rün-Monitor  799,-  DM 
Färb- Monitor  1298,- DM 


NEU  0510  Drucksrintsrlace 

von  Data  Media  für  Schneider 
CPC  464/664 

2  verschiedene  Drucker  können  wahlweise 
betrieben  werden.  Steuerung  über  die  Soft¬ 
ware,  durch  Eingabe  des  jeweiligen 
Druckercodes. 

Mit  eigener  Stromversorgung. 


16,50  DM 


Druckerkabsl 

■für  Schneider- Drucker,  150  cm  lang 
leesi-Nr.  6402  70,- DM 


Dhne  Abbildung: 

Schneider-Monitor 

Kerlängerungskabel 


198,-  DM 

Best-Nr.  6510 
für  3  Drucker  248,-  DM 
Best.-Nr.  651 1 


Ws* 


19,50  DM 
39,-  DM 


Tke  Stick 

Völlig  neues  Steuergefühl 
durch  Einhand¬ 
bedienung! 

Durch  die  Bewegung 
der  Hand  besonders 
geeignet  für  schnelle 
Action. 

Mittels  Saugfuß 
auch  stellbar. 

Fabrikat:  John  Hall 

Best- Nr.  6405  49,“  DM 


Schneidar  CRC  664.  für  dea 
Anspruchsvollen. 

Grün-Monitor  1398,- DM 
Färb- Monitor  1898,- DM 


Schneider  CRC  6128.  für 
den  Profi. 

Grün-Monitor  IM  1598.- 
Farb-Monitor  DM2098- 


NEU  Kassettenrecorder  für  CRC  664/6128 

Best.-Nr.  4920 

NEU  Rroli-Kunststofthüllen 

leer,  für  Ihre  Programmkassetten  und  Disketten  im  Buchformat 


78,-  DM 


Best.-Nr.  4930  für  Cass.  +  3”  Disk. 
Best.-Nr.  4950  für  Disk.  5%" 


12  Stck.  48,-  DM 
1 2  Stck.  48,- DM 


lücher 


dk'tronics  Lightpen  für  CPC  464  und  664 

Das  Werkzeug  für  den  Grafikprogrammierer  Pixelweise  Auflösung,  volle  Ausnutzung  der 
Färb-  und  Grafikmöglichkeiten  des  CPC,  auch  für  Grünmonitor,  umfangreiches  Hilfspro¬ 
gramm  mit  Menuesteuerung  über  Pictogramme,  dadurch  kinderleichte  Handhabung, 
kompatibel  zu  DDI-1  und  MP1.  Komplett  mit  Handbuch  und  Hardcopyroutine. 


Best.-Nr.  6400 

nur  99, -DM 


Ost«  Becker 

lüas  Floppy-Buch  zum  CPC,  ca.  250  Seiten  49,00  DM 

ICPC  Hardware-Erweiterungen,  ca.  300  Seiten  49,00  DM 

IPeeks  &  Pokes  zum  CPC,  ca  220  Seiten  29,00  DM 

ICPC  464  Graphik  &  Sound,  220  Seiten  39,00  DM 

ICPC  464  Intern,  548  Seiten  69,00  DM 

|Das  Maschinensprachebuch  zum  CPC  464, 330  Seiten  39,00  DM 

ICPC  Tips  &  Tricks,  263  Seiten  39,00  DM 

lAdventures  -  und  wie  man  sie  auf  dem  CPC  464  programmiert  320  S.  39,00  DM 
ICPC  464  Basic- Programme,  185  Seiten  39,00  DM 

|Oas  Basic-Trainingsbuch  zum  CPC  464, 285  Seiten  39,00  DM 

IDas  Schulbuch  zum  CPC  464,  389  Seiten  49,00  DM 


Bestellen  Sie  noch  heute,  Lieferung  erfolgt 
umgehendl  Zahlung  per  Vorkasse  oder  Nach¬ 
nahme  zuzügl.  Porto- 
bzw.  Nachnahmege¬ 
bühr  (Nachnahme  ins 
Ausland  nicht  möglich) . 


data  madia  gmbh  MAILORDER 


Weitere  Artikel  in  unserem  Gesamtkatalog.  Bitte  anfordern  (2-  DM  für  Rückporto  beilegen). 
Data  Media  GmbH  -Mailorder-  Ruhrallee  55.  4600  Dortmund.  Tel.:  (02  31)  12  50  71-3 
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Lister 


« *  ÖS  •  MD 


Es  ist  wohl  schon  den  meisten  Programmierern  passiert:  Ein 
vor  langer  Zeit  geschriebenes  Programm  soll  erweitert  wer¬ 
den,  ist  aber  (z.B.  wegen  Speicherplatzoptimierung)  so  un¬ 
übersichtlich,  daß  es  erst  einmal  Stunden  dauert,  bis  man  den 
Programmablauf  w  ieder  übersehen  kann. 

Dieses  Programm  untersucht  ein  in  ASCII  abgespeichertes 
Basic-Programm  und  gibt  ein  möglichst  übersichtliches  Li- 
sting  aus  (WICHTIG:  Das  zu  listende  Programm  MUSS  mit 
der  Funktion  'SAVE  "Programm".A'  abgespeichert  worden 
sein). 

Das  Programm  erstellt  ein  Listing  mit  folgenden  Merk¬ 


malen: 


1.  Nur  ein  Befehl  pro  Druckzeile 

2.  Strukturierung  durch  automatisches  Einrücken  bei  den 
Befehlen: 

-  WH  ILE  /WEN  D 

-  FOR  /  NEXT 

-  IF/THEN 

3.  Verzweigungen  im  Programmablauf  werden  ange  zeigt 
durch: 

- bei  bedingtem  GOTO 

========  bei  unbedingtem  GOTO 

- R - R—  bei  bedingtem  RETURN 

==R===R=  bei  unbedingtem  RETURN 
- U - U-  bei  GOSUB 

4.  REM-Befehle  werden  immer  an  den  Zeilenanfang 
gesetzt. 

zu  1. 

Das  Programm  sucht  jede  Zeile  nach  Doppelpunkten  ab  und 
trennt  die  Zeile  nach  Bedarf  auf.  Doppelpunkte  zwischen 
zwei  Anführungszeichen  werden  nicht  beachtet  (Zeile  260 
bis  340). 

zu  2. 

Nach  jedem  der  in  2.  genannten  Befehle  rückt  die  erste  Druck¬ 
position  der  folgenden  Zeilen  um  n  Stellen  nach  rechts,  und 
zwar  solange,  bis  der  entsprechende  Folgebefehl  erkannt 
wird. 


In  Zeile  130  wird  der  Drucker  initialisiert.  Diese  Werte  für  den 
STAR  DP  515  sind: 

ESC  U  =  unidirectionaler  Druck 

ESC  M  4Q  =  erstes  Zeichen  auf  Druckposition  4Q 

ESC  E  =  Emphasized  Printing 

Diese  Werte  können  jedoch,  je  nach  Druckertyp,  und  Schrift¬ 
wunsch  geändert  werden. 

Das  abgedruckte  Listing  wurde  bereits  mit  diesem  Programm 
erstellt.  Da  jedoch  im  Programm  keine  unbedingten 
Sprünge  und  keine  Unterprogramme  Vorkommen,  sind  hier 
nicht  alle  Funktionen  sichtbar. 

Das  Programm  wurde  für  den  CPC  464  mit  Diskette  geschrie¬ 
ben,  dürfte  aber  auch  auf  dem  664  laufen,  wenn  in  Zeile  230 
das  erste  Klammerzeichen  weggelassen  wird  (der  DEC$- 
Befehl  funktioniert  beim  664  ja  richtig). 

Ebenfalls  sollte  es  bei  Kassettenbetrieb  funktionieren,  nur 
eben  etwas  langsamer. 

Sämtliche  REMARK-Zeilen  können  beim  Abtippen  wegge¬ 
lassen  werden.  Norbert  Muskatewitz 


10  • 
20  ’ 

*  x  « 

LISTER. BAS  Vers. 

1.2  *** 

30  ’ 

x  *  x 

(C)  1985  by 

XXX 

40  1 
50  ' 
60  ’ 
70  ’ 

x  x  x 

*  *  * 

Mt 

N. Muskatewitz 

XXX 

XXX 

XXX 

80  ’ 
90  ’ 


100  CLEAR : OPENOUT  "dummy" : MEMORY  HIMEM-1 
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: CLOSEOUT 

110  DIM  zeile$ ( 30 ) : MODE  2 

120  INPUT  "Listing  auf  <D>rucker  oder  au 

f  <B>ildschirm” ;a$ 

124  ’ 

125  *  ***  Drucker  initialisieren  *** 

126  ’ 

130  IF  UPPER$ ( LEFT$ ( a$ , 1 ) ) ="D"  THEN  x=8 : 
PRINT#8 , CHR$ ( 27 ) "U" : PRINT#8 , CHR$ ( 27 ) "M"C 
HR$ ( 42 ) : PRINT#8 , CHR$ ( 27 ) "E" 

134  ' 

135  *  ***  Programmauswahl  (muss  in  ASCII 
abgespeichert  sein)  *** 

136  ’ 

140  LINE  INPUT"geben  Sie  den  Programmnam 
en  ein  =  >  " ; name$ 

150  CLS : PRINT#x , "PROGRAMM : " ; name$ : PRINT# 
x , STRINGS ( 80 , " * " ) : PRINT#X : WINDOW  #0,1,80 
.4,25 

160  OPENIN  name$ 

170  anf =7 

174  ’ 

175  *  ***  Beginn  der  Hauptschleife  *** 

176  ’ 

180  WHILE  NOT  EOF 
190  anf =wh*6+f 0*4+7 
200  zeile$="" 

210  LINE  INPUT  #9,zeile$ 

220  ERASE  zeile$:DIM  zeile$(30) 

230  zn$=DEC$ ( ( VAL ( zeile$ ) , "#####" ) 

240  za=INSTR( 1 , zeile$ , "  " ) : zeile$=MID$ ( z 
eileS , za+1 ) 

250  l=LEN(zeile$) :a=l :b=l :c=l :d»l :m=l :ml 
«1 

260  IF  INSTR ( 1 , zeile$ , " : " ) =0  THEN  zeileS 

( 1 ) =zeile$ : GOTO  350 

270  WHILE  (a<l)  AND  (b<>0) 

280  m=INSTR(zeile$,CHR$(34) ) :IF  m=0  THEN 
ml*0 : GOTO  300 

290  ml=INSTR(ra+l ,zeile$,CHR$(34) ) 

300  b=INSTR(d , zeileS ,":" ) :IF  m=0  THEN  32 
0 

310  IF  b<m  OR  b>ml  THEN  320  ELSE  d-ml+1: 
GOTO  300 

320  IF  b<>0  THEN  zeileS (c)=MID$( zeileS, a 
,b-a+l) : c=c+l : a=b+l :d=a 
330  WEND 

340  IF  a>l  THEN  zeileS (c ) =MID$ ( zeileS , a , 
1-a+l )  ELSE  IF  a=l  AND  ml<>0  THEN  zeileS 
( 1 ) = zeileS : GOTO  350 

344  ’ 

345  ’  ***  Ausdruck  Zeilennummer  *** 

346  * 

350  PRINT#X:PRINT#X,zn$; 

354  ’ 

355  '  ***  Bearbeiten  der  einzelnen  Zeile 
n  *** 

356  ' 

360  zeileS ( 0 ) »STRINGS (80,34) 

370  FOR  i=l  TO  c 

380  IF  zeileS(i)=""  THEN  560  ELSE  IF  LEN 
(zeileS(i-l) ) <80  THEN  PRINT  #x 

384  ’ 

385  *  ***  Suche  nach  Anfuehrungszeichen 
*  *  * 

386  * 

390  m= INSTR (zeile$(i) ,CHRS(34) ) : IF  m=0  T 
HEN  ml=0 : GOTO  410 

400  ml=INSTR(m+l , zeile$(i) ,CHR$(34) ) 

410  IF  LEFTS ( zeileS ( i ) , 1 ) ="  "  THEN  zeile 
$(i)»MID$( zeileS (i)  ,2)  .-GOTO  410 

414  ’ 

415  ’  ***  REM  *** 

416  1 

420  IF  LEFT$(zeile$(i) ,3)="REM"  OR  LEFTS 

(zeile$(i) , 1)= .  THEN  PRINT#x ,TAB(7) ;ze 

ile$ ( i ) ; : GOTO  560 
424  ’ 


1  86  CPC  69 


imii  ii  ii  iiiiinmmui  . um1 


. Tips  &  Tricks 


. . . . ii . . . ii  ii . . . . . ii  in  in . nun  m 


425  '  ***  FOR  *** 

426  ’ 

430  IF  LEFT$ ( zeile$ ( i ) , 3)="F0R"  THEN  PRI 
NT  #x,TAB(anf ) ;zeile$(i) ; :fo=fo+l : anf «an 
f +4 : GOTO  560 

434  ' 

435  '  ***  IF  *** 

436  ’ 

440  IF  LEFT$ ( zeile$ ( i ) ,2)="IF"  THEN  j  =  IN 
STR ( zeile$ ( i ) , "THEN" ) : IF  m-0  OR  j<m  OR  j 
>ml  THEN  PRINT  #x,TAB(anf ) ;LEFT$(zeile$( 
i) , j-1) ; : zeile$ ( i ) =MID$ ( zei le$ ( i ) ,  j+5) :P 
RINT  #x,TAB(anf ) ; "THEN" ; : anf =anf +6 : GOTO 
590 

444  ' 

445  ’  ***  WHILE  «** 

446  ' 

450  IF  LEFT$ (zeile$ ( i ) , 5 ) »"WHILE"  THEN  w 
h=wh+l: PRINT  #x, TAB (anf) ;zeile$(i) ; :anf= 
anf +6 : GOTO  560 

454  ’ 

455  '  ***  WEND  «** 

456  ' 

460  IF  LEFT$(zeile$(i) , 4)="WEND"  THEN  wh 
=wh-l :anf=anf-6: PRINT  #x,TAB(anf ) ;zeile$ 
(i) ; : GOTO  560 

464  ' 

465  '  ***  NEXT  *** 

466  ’ 

470  IF  LEFT$ (zeile$ ( i ) , 4)="NEXT"  THEN  fo 
=f o-l : anf =anf-4 : PRINT  #x,TAB(anf) ;zeile$ 
(i) ; : GOTO  560 


PRINT  #x,TAB(7) ; STRINGS (72,”=") : GOTO  560 
ELSE  PRINT#x , TAB( anf ) ;zeile$(i) ";STR 
INGS ( 79-anf -LEN ( zeile$ ( i )),"-"); : GOTO  56 
0 

524  • 

525  ’  *«*  RETURN  *** 

526  ' 

530  IF  LEFT$ (zeileS ( i ) ,6)="RETURN"  THEN 
IF  anf =7  THEN  PRINT#x,TAB(anf ) ;zeile$(i) 
: PRINT#x , TAB ( 7 ) ; : FOR  u=7  TO  76  STEP  4 : PR 
INT#x,”=»=R" NEXT: GOTO  560  ELSE  PRINT#x 
, TAB(anf ) ;zeile$(i) • "  ” ;:FOR  u=l  TO  (79- 

anf -LEN ( zeileS ( i ) ) ) /4 : PRINT#x , " - R" ; :NE 

XT : GOTO  560 

540  IF  LEN(zeile$(i) )+anf >80  THEN  PRINT# 
x, TAB (anf) ; LEFT$ ( zeileS ( i ) ,80-anf ) ; :zeil 
e$ ( i ) =MIDS ( zeileS ( i ) ,80-anf+l) :GOTO  540 
550  PRINT  #x , TAB ( anf ) ; zeileS ( i ) ; 

560  NEXT  i 

570  WEND : CLOSEIN : PRINT#x : PRINT#X 

574  ’ 

575  ’***  Ende  der  Hauptschleife  *** 

576  ' 

580  PRINT: INPUT"noch  ein  Programm  listen 
(j/n)  " , a$ : IF  UPPERS (LEFTS (aS , 1 ) ) =" J"  T 
HEN  RUN  ELSE  END 

590  IF  VAL ( zeileS ( i ) ) <  > 0  THEN  g$=STR$(VA 
L(zeile$(i) ) ) :g$=RIGHT$(g$,LEN(g$)-l) :ze 
ile$ ( i ) =MID$ ( zeileS ( i ) ,LEN(g$)+l) : PRINT 
#x , TAB ( anf ) ; gS ; "  STRINGS (79-anf-LEN(g$ 

),"-"); :GOTO  380  ELSE  390 


474  ’ 

475  *  *«*  GOSUB  *** 

476  ’ 

480  IF  LEFTS ( zeileS  ( i )  ,  5 )  =  "GOSUB#'  THEN  P 
RINT#x , TAB ( anf ) ; zeileS ( i ) ; "  ”;:FOR  u=l  T 

O  ( 79-anf-LEN ( zeileS ( i ) ) ) /4 : PRINT#x , " - 

U"; : NEXT: GOTO  560 

484  ' 

485  '  ***  ELSE  *** 

486  • 

490  j=INSTR( zeileS ( i ) , "ELSE" ) : IF  j=0  OR 
(■<>0  AND  j  >m  AND  j<ml)  THEN  520 
500  IF  INSTR(LEFTS(zeile$(i) , j-1) ."GOTO" 
)  THEN  PRINT  #x , TAB ( anf ); LEFTS ( zeileS ( i ) 

, j-1) ; STRINGS (80-anf-j ,"-") ; :anf=anf-6:P 
RINT  #x , TAB( anf ) ;"ELSE"; : anf =anf +6 : zeile 
S ( i ) =MID$ ( zeileS ( i ) . j+5) :GOTO  590 
510  PRINT  #x , TAB ( anf ) ; LEFTS ( zeileS ( i ) ,  j  - 
1) :anf=anf-6: PRINT  #x,TAB(anf ) ;"ELSE"; :a 
nf=anf+6:zeile$(i)=MID$(zeile$(i) , j+5) :G 
OTO  590 

514  ' 

515  '  ***  GOTO  *** 

516  ' 

520  IF  LEFTS ( zeileS ( i ) , 4 ) ="GOTO"  THEN  IF 
anf =7  THEN  PRINT  #x , TAB(anf ); zeileS ( i ) : 


Korrektur  zu  »Steuerzeichen 
des  CPC  464«,  Teil  3 

Beim  Ausdruck  unseres  Listings  zur  Druckersteuerung  in  der 
Ausgabe  11/85  unserer  Zeitschrift  hat  es  leider  eine  techni¬ 
sche  Panne  gegeben,  wodurch  der  Teil,  der  die  Grafik  betrifft 
und  Steuerzeichen  enthält,  wegen  fehlerhafter  Darstellung 
der  Zeilen  nicht  korrekt  eingegeben  werden  kann.  Wir  bitten 
unsere  Leser,  dies  zu  entschuldigen  und  bringen  hier  das  Li- 
sting  aller  Zeilen,  die  beim  Druck  nicht  richtig  dargestellt  wa¬ 
ren  und  auch  solcher,  bei  denen  die  Position  der  Leerzeichen 
nicht  exakt  festzustellen  war.  Nur  diese  haben  wir  hier  aufge¬ 
führt,  alle  anderen  Zeilen  sind  so  einzugeben,  wie  sie  im  Li- 
sting  der  Novemberausgabe  dargestellt  waren.  Am  Anfang 
dieser  Aufstellung  sind  Vorschläge,  wie  man  die  Belegung 
zweier  Funktionstasten  etwas  anders  gestalten  kann.  In  Zeile 
150  war  die  Breitschrift  nur  für  eine  Zeile  vorgesehen,  man 
kann  sie  durch  das  für  alle  Zeilen  gültige  Steuerzeichen  erset¬ 
zen.  In  Zeile  195  entspricht  der  Wert  34  dem  des  Anführungs¬ 
zeichens,  das  in  den  Texten  öfters  vorkommt. 

Noch  ein  Vermerk  zum  gleichen  Programm  in  der  DATA- 
BOX:  Der  Grafik-ausdruck  der  Spalten-  und  Tabulatorenlei¬ 
ste  läuft  korrekt,  wenn  vorher  mit  Programmteil  4  auf 


- l<irteS  schul  ungsientr  unM 

Qe 5  ,  autorisiertes  t#p 

»er« V  Ä  “.«in  Do-*  f-, 
*r.' sciMir  -  c-put'r' 

9  Dr.  Naumann  Eie  ^ j t-Stoss-Str .50! 
t-Röhrer-Str.7  8000  München  21 

Augsburg  J  .089-587533/580 
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EPSON-Drucker 

RX-80  709,-  RX-80F/T  910,- 

FX-85  1329.-  FX-105  1739,- 

LQ-1500  3198,- 

JX-80  1899,-  HI-SO  1245,- 

Seikosha-Drucker 

GP-500AO.VC  538,-  GP-500AS.CPCo.AT  598,- 

GP-700A.VCo.CPC  998,-  SP800Aoderl  798,- 

SP1000A.ASo.VC  828,-  SP  1000  CPC  878,- 

SP 1 000  AP,  Imagewriter  Kompatibel  für  Macintosh  u. 
Apple  llc  direkt  anschlieSb.  948,- 

Panasonic 

KX-P1090  675,-  KX-P 1091  848,- 

KX-P 1092  1068,-  KX-P315lTvtwr»»  1528,- 

Star-Drucker 


|  Gemini  10  ii 

sagenhafte  698,-  1 

SG  10 

nur  889,- 

SG  10C 

839,- 

SD  10 

1198,- 

SR  10 

1598,- 

SG  15 
SR  15 

1225,- 

1999,- 

SD  15 

1598,- 

Okidata  MICROLINE 

Typ  182, 183, 192, 193  Sonderpreise 

Vortex  Laufwerke  und  Karlen,  a Be  Software 
vom  M  4  T  Verlag  lieferbar 


Commodore 

C128.PC10.PC20  a.Anfr. 

Schneider  PC 

CPC-464  grün  grünem  Monitor  725,- 

CPC-464  mit  farbigen  Monitor  1198,- 

Floppy-Laufwerk3‘  725,- 

Disketten 3" (.Schneide CPC  lOSt.  99,- 

CPC-664  mit  grünem  Monitor  1248,- 

CPC-664  mitColor-Monilor  1699,- 

CPC-61 28  mil  grünem  Monitor  1448,- 

CPC-61 28  mit  Coior-Monitor  1898,- 

NLQ-401  Drucker  699,- 

Hewlett  Packard 

HP-41CV  439,- 

HP-41CX  648,- 

Disketten  u.  Zubehör  dm/iosi 

3Vj' ID  Markendiskette  75,- 

3Vi'  2  D  Markendiskette  129,- 

5'U  1  D  No  name  23,- 

5'/«"  2  D  No  name  29,- 

Sharp 

PC  1401  215,-  PC  1402  299,- 

PC1500  A  399,-  PC  1 500A+E 1 50  699,- 

PC  515  P  645,-  PC  2500  780,- 


D&G  Datentechnik,  Postf.  431 ,  Bogenstr,  53,  S  02  61/40  88  39, 5400  Koblenz 
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.......  "DRUCKERSTEUERUNG"  ....... 

20  1  {Korrektur  2  v.  B.11.8S  -  nur  Problenzeilen) 

ISO  KEY  1 , "N"  < oder  auch  "LH1"> 

1«S  KEY  10,"CHR*("  < oder  auch  "CHR*(34)”  fuer  Anfuehrungsstriche> 

22S  PRINT  #8,  -i.GI.xOCU'  •••'  'ORIENTIERUNG  F)R  TASTENBELEGUNG 

230  PRINT  #8,  "II.'  '•••••  . . Drucker-Steuerungi3&" 

235  PRINT  »8."II{.VZZZZZZZZZZZZZ- 


1"CHR*(0) 


240  PRINT  #8,  "UJ>U"CHR*(0>"'  '  ’  'N’L'O1  •  •  1 L=U"CHR* < 0 ) 1 

•  •i-U"CHR*<0) . INDEX1  1  1  1L=U’1i 

245  PRINT  #8."III=U"CHR*(0) . I=U"CHRt(0)' 

•  ■I*S1"chr»<o>"’  . . . ,L=!ri 

250  PRINT  #8."Ui“U"CHR$(0)"'  1  1  1  'EIN . (0 ) 1 

1  1I.U"CHR*(0)"1  1  1  "hoch1  •••  1I«!l,1i 
255  PRINT  «8  .  "m-WZZZZZZZZZZZKPZZZZZZZZZZZZZOZZZZZZZZZZZZZ  1  "CHRg  1  0 ) 

260  PRINT  #8,"III=U"CHR${0) . SCHMAL  1111  |={£"CHR$  {  0  ) . SCHMAL 11 

1  1  I=U"CHR*  (  0  )  "  1  "  1  INDEX 1  1  "  L=U"  i 

265  PRINT  #8,"m-U"CHR$(0) . I_.U"CHH* ( 0) . . . 

"X=U"CHR*(0> . I-U"; 

270  PRINT  #8."Ul-li"CHRt(0) . EIN  1  1  *  1  1 1=U"CHR* ( 0 ) . AUS1  1  1 

1  1I=ü"CHRt(0) . tief  1  •«"  "L-U"; 

275  PRINT  »8 ,  " I U -UZZZZZZZZZZZZZOZZZZZZZZZZZZZOZZZZZZZZZZZZZ ) "CHRt ( 0 ) 

280  PRINT  #8."Ui=U"CHR*{0> . BREIT 1  1  1  1  r-U"CHR*  (  0  ) . BREIT11 

1  "L=U"CHR*<0) . INDEX1  1  1  •i-U"; 

285  PRINT  #B,"U1.Ü"CHR$(0) . I=U"CHR*(0) . 

1 ,1-U"CHR*(0> . t=U"; 

290  PRINT  #e,"IH.U"CHR$<0> . EIN . I*U"CHR*  ( 0  > . AUS111 

1  1i=ü"CHR$(0) . AUS . i=U"i 

295  PRINT  #8 . "I I [ 


300  PRINT  #8 . " I I [ »U"CHR& ( 0 ) 1 
1  1 1-U"CHR*  (  0 )  "  1  UNTERSTRICH 1  i-lj11 ; 


1  LaU"CHR$  ( 0 )  " 


1"CHR*(0) 


305  PRINT  #8,"liX.U"CHR*{0)"1PRINT1#a,"CHR$(34)"I.s"CHR*(0 
1U"CHR*  ( O  ) . CHR*  (  1  1  1  1  L-U"  | 


>-I- 


'L-U"CHR*(0) 

1  J.“U"CHR$  ( 0 ) 11 1 


306  PRINT  #8,CHR*(0) . EIN1 

310  PRINT  #8,"IIl=U"CHRt(0) . 

1 1 i«U"CHR* ( 0 ) " 1  1  AUS 1 (CTRL ) 1 I=U” ; 

•  "lll-szazzzzzzzzzz; [ izmzzzzzzzii zzzzzzzzzzzzzy-chrs. o > 
330  PRINT  #8.  I7II.1  1  1  ,X.-ltL-071 'Deutsch  aus  .  'Ein:  1  1 1-1  f 
-1 1-06  1 11 

'L-ltl-OE' 'dicker  Strich  ein.  "Aubi  1  "L-U 


335  PRINT  #8.  "IX" 
ii-OF ' " 

340  PRINT  #8. "II1 
-1  [-0H 1 11 

345  PRINT  »8. "II 1 
Oxl tH" 

380  PRINT  #8."IS0I1I213I4I5I6I7I8I91 
0I112I3I4I5I6.LT" 

385  PRINT  #8,"LW10"; 

400  PRINT  #8,"LS011I2I3I4IS16I7I8I9I 
0111213141516"; 

401  1 

420  PRINT  #8,"LS0I112I3I4ISI6I7I819L 
FLWO" 

421  1 

440  PRINT  #8."Lx0LS0LEH12I3I4I5I6I7I 
08191 F [T [ xl" 

450  ' 

460  PRINT  ."Li 
470  PRINT  ,"1 
475  PRINT  ,"l 
480  PRINT  ,  "J 
485  PRINT  ,"J 
490  PRINT  ,"2 
495  PRINT  ,"J 
520  PRINT  "Li 
530  PRINT  "J 


'1-llI-OG1 'Doppelanschlag  ein. 'Aus: 1 ‘L-l( 
’L-ltL-O.1 'Graphik  ein. 'Aua: ’CHRStO) [6R[ 


R  O  G 


M  M 


. . .  T  E  X  T  - 

XIX  Text  schreiben" 

X  2  s  Briefkopf  drucken" 

X  3  X  Seiten-Nr.  drucken" 

X  4  x  Textseite  ausgeben  (Bildschir 
X  5  X  Tastenbelegung  ausdrucken" 

X  6  X  Spalten-ZTabulator-Leiste  ausdrucken" 

Ist  das  Papier  eingelegt  und  der  Drucker  eingeschaltet?" 

Ausdruck  oder  weitere  Anweisungen  folgen  nach  Tastendruck.' 


«/Drucker)1 
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Druckerausgabe  gestellt  wurde.  Wenn  die  Variable  a  in  den 
Zeilen  365  und  370  durch  den  Wert  8  ersetzt  wird,  läuft  die 
Druckerausgabe  der  Hilfstafeln  in  jeder  Einstellung 
problemlos. 

Vermerk  zur  Eingabe  des  Programms: 

Bei  den  unterstrichenen  Zeichen  ist  die  entsprechende  Taste 
zusammen  mit  der  Taste  <  CTRL  >  zu  drücken.  Anstatt  des 
abgedruckten  Zeichens  erscheint  dann  ein  Steuerzeichen. 
Diese  Steuerzeichen  lassen  sich  normalerweise  nicht  aus¬ 
drucken,  weshalb  hier  diese  Art  der  Darstellung  benutzt 
wurde. 

1  m  grafischen  Teil  ist  es  mitu  nter  schwierig,  die  Leerstellen  zu  er¬ 
mitteln.  Immer  wenn  es  auf  die  Leerstellen  ankommt  oder  am 
Ende  einer  Zeile,  ist  im  Listing  das  Zeichen  <'  >  dargestellt. 
Dieses  Zeichen  darf  nicht  eingegeben  werden,  sondern  an 
dessen  Stelle  ein  Leerzeichen!  Nicht  verwechseln  mit  dem 
Apostroph  <*>  ,  das  an  einigen  Stellen  vorkommt  und  einzu¬ 
geben  ist.  Nicht  verwechselt  werden  dürfen  auch  die  Zahl  0 
und  der  Buchstabe  O,  die  sich  ähnlich  sehen. 


555  PRINT  »e/'UxOeiSOLSXVornam«  NaseJLxl IlxOStrs'e  Nr 
lixl"; 

560  PRINT  #8 , "ILxOPostleitz .  Ort.  PostastLTBLxlLZ" 

580  PRINT  "LJJ  Welche  Seiten-Nr.  soll  gedruckt  werden?  Bitte  Nr.  eingeben 

635  PRINT  "LJ  Ausgabe  auf  Bildschirm  oder  Drucker?  Bitte  u{hlen  (B/D)11 
660  PRINT  "LI  Jetzt  bitto  eingeben:  GOTO  nOlO  (=  vierstellige  Zahl,  die  er 

RtO  Ctalla  ’  n  1  •• 


ste  Stelle 
685  PRINT  "LJ 


. .  TEXT-EINGABE  . . . 

PRINT  #8. "CHRt(34)"fti.  Damit  beginnt  die  Eingabe  einer  Textzei 


740  PRINT 
le." 

790  STOP 

10000  SPEED  WRITE  0  :  SAVE  "Steuer2-7. 11 . 85"  :GOTO  10000 


Mathe-Tips 


☆ 


Hier  möchten  wir  eine  kleine  Routine  vorstellen,  die  u.a.  not¬ 
wendig  wird,  um  Gleichungen  der  Form 

ax3  +  bx2  +  cx  -I-  d  =  0 

lösen  zu  können. 

Fast  jeder  Taschenrechner  hat  die  INV-Taste.  Mit  dieser 
kann  man  eine  im  Anzeigeregister  des  Taschenrechners 
stehende  trigonometrische  Funktion  (z.B.  sin«*=  x)  in  die 
Umkehr-Funktion  (arcsin  x  =«*)  umwandeln;  das  heißt,  Um¬ 
wandlung  sin  in  Winkel. 

Leider  verfügt  unser  CPC  464  nicht  über  einen  solchen  Be¬ 
fehl.  Er  kennt  nur  den  Befehl  ATN,  der  gleichbedeutend  mit 
arctan  ist.  Mit  Hilfe  der  »Zusammenhänge  der  trigonometri¬ 
schen  Funktionen«,  deren  Herleitung  wir  dem  Leser  ersparen 
möchten,  war  es  möglich,  die  folgenden  Routinen  zu  erstellen: 
Umwandlung  trigonometrischer  Funktionen  in  Winkel 
Die  Winkel  liegen  im  Bereich  zwischen  0°  und  360°.  Wegen 
der  Periodizität  der  trigonometrischen  Funktionen  gibt  der 
CPC  464  nach  Eingabe  eines  sin-Wertes  immer  zwei  Winkel 
aus  usw. 

(Z.B.  entspricht  der  cos  (0.5)  den  Winkeln  von  60°  und 
300°.)  Eberhard  Dietrich 


10  • SINUS 
20  OEG 

30  INPUT"SINUS  =  ";S 
40  W=ATN((l/(l-S''2)-ir0.5) 
50  IF  S<0  THEN  70 
60  PRINT  W ; 180-W ; END 
70  PRINT  180+U ; 360-W : END 


10  'COSINUS 
20  DEG 

30  INPUT-COSINUS  -  ”;C 
40  Um  ATN  (  ( 1/  ( 1-CA2 )  -1  )-*0 . 5 ) 
50  IF  C«0  THEN  70 
60  PRINT  W; 360-W: END 
70  PRINT  180+W;180+W:END 


10  'TANGENS 
20  DEG 

30  INPUT "TANGENS  -  ";T 
40  W=ATN(T) 

50  IF  T<  0  THEN  70 
60  PRINT  U ; 180+W : END 
70  PRINT  180+W ;360+W: END 


10  'COT ANGENS 
20  DEG 

30  INPUT-COTANGENS 
40  W« 1 / ( 1 /ATN ( CT ) ) 

SO  PRINT  W+90 ; W+270 : END 


;CT 


DFÜ  total  t 

Alles  was  das  Hackerherz  höher  schlagen  läßt! 
Schneider  RS  232  Schnittstelle  für  464/664  m.  Terminalsoftware. 
Betrieb  mit  Akustikkoppler  oder  als  Terminal  für  Hostrechner. 

Alle  Parameter  einstellbar.  Zwei  Passwörter  definierbar. 
Eingebaute  Textverarbeitung  (bearbeiten,  anschauen,  drucken, 
laden  und  sichern).  2  Benutzer  m.  versch.  Prioritäten  möglich. 
Zeitanzeige.  Erweiterung  zur  Mailbox  in  Vorbereitung. 

Schnittstelle  m.  Software  nur  238,-  DM 
Paket  m.  Dataphon  s21d,  Netzteil,  Schnittstelle,  Datenkabel 
und  Software  nur  548,-  DM!  CPCTERM  99,-  DM;  m.  Dataphon  379,-  DM 
Teleterminal  300s  1 28,-  DM;  m.  Dataphon  398,-  DM;  Netzteil  1 9,-  DM 

H.-J.  Janke 

Postfach  ISO  173  -  5600  Wuppertal  12 


data  berger 


Wordstar  3.0 

für  die  anspruchsvolle  Texlverarbeitung  mit 
Mailmerge  für  Serienbriefe  und  Simultandrucken. 

dBase  II 

die  Datenbank  für  die  Verwaltung  Ihrer  Dateien 
im  direkten  Zugriff  oder  sequentiell. 

MULTIPLAN 


X 


-«säsr. 


für  Ihre  Kalkulation,  damit  Bleistift  und  Taschen-  X  5 

rechner  der  Vergangenheit  angehören.  ^ 


Die  drei  Programme,  die  eintach  dazu  gehören  wenn  Sie  einen 
CPC  484  (mit  Voftex-Speichererweiterung)  CPC  6128 
JOYCE  PCW  8256  oder  ATARI  520ST  besitzen 


\jo«a* 

ve\cW 


data  berger 


Im  UcktenfelriB  76, 4790  Piderbim, 


RUF  05251/64852 


J 


1  ’86  CPC  71 
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. Tips  &  Tricks" 


Ewiger  Kalender 

Der  Arbeitsbereich  dieses  Programms  zur  Wochentagsbe¬ 
stimmung  bzw.  Kalenderausgabe  umfaßt  den  Zeitraum  von 
1582  bis  4915;  eine  danach  fällige  Kalenderanpassung  wurde 
wahrscheinlich  noch  nicht  festgelegt.  Die  Berechnung  des 
Osterfestes  wird  nach  der  Formel  von  Joh.  Hartmann  durch¬ 
geführt,  die  dieser  für  die  Zeitvon  1582  bis  2399  aufstellte.  Die¬ 
ser  Einschränkung  habe  ich  bei  der  Steuerung  des  Kalen¬ 
derdrucks  Rechnung  getragen. 

Programmablauf: 

In  Zeile  1000  erfolgt  ein  Sprung  zur  Initialisierung  (Zeilen 
3030  -  3280);  Umlaute  werden  definiert,  ein  kleines  Menue 
wird  ausgegeben  und  anschließend  werden  die  Standard¬ 
werte  eingelesen.  Der  Bildschirm  wird  in  Fenster  zur  Da¬ 
tumseingabe  und  Kalenderausgabe  unterteilt.  Die  Abfrage  in 
Zeile  3280  verzweigt  bei  richtiger  Beantwortung  zur  ge¬ 
wünschten  Abrufart,  andernfalls  bricht  das  Programm  ab. 
Immerwährender  Kalender  ( 1090  -  1 140): 

Zunächst  wird  das  eingegebene  Datum  auf  seine  Richtigkeit 
hin  überprüft  (1410  -  1470).  Tritt  ein  Eingabefehler  auf,  so 
wird  die  entsprechende  Meldung  ausgegeben  (Zeilen  1490  - 
1540),  und  anschließend  eine  neue  Eingabe  verlangt  (Zeile 
1 120).  Bei  richtiger  Eingabe  wird  zur  Startwert-Ermittlung  ge¬ 
sprungen  (1580  -  1650),  wo  zuerst  eine  Einordnung  in  ein 
28er-Schema  erfolgt.  Dabei  wird  der  ermittelte  Divisionsrest 
solange  erhöht,  bis  keine  der  Bedingungen  mehr  zutrifft.  Das 
Ergebnis  wird  dann  durch  nochmalige  Restbestimmung  ver¬ 
einheitlicht  und  zum  Grundwert  der  Zeilennummer  addiert. 
Zeile  1620  setzt  im  RESTORE-Unterprogramm  das  Token 
für  die  Zeilennummer  ein;  dies  ist  nötig,  da  der  CPC  nach 
Auffinden  der  Zeilennummer  die  zugehörige  Zeilenadresse 
samt  Token  einsetzt,  was  ggf.  zu  Komplikationen  führen 
kann.  Zeile  1630  POKEd  die  Werte  der  berechneten  Zeilen¬ 
nummer  in  das  Unterprogramm,  das  anschließend  aufgeru¬ 
fen  wird  und  das  Einlesen  der  Startwerte  ermöglicht. 

Zurück  in  Zeile  1140  wird  nun  noch  das  Tagesdatum  zum 
Startwert  addiert,  der  Divisionsrest  (7)  ermittelt  und  mit  seiner 
Hilfe  der  richtige  Wochentag  im  Formatstring  fS(0) 
ausgegeben. 

Danach  springt  das  Programm  zur  Tastenabfrage  (1320  - 
1370):  Zeile  1350  vertauscht  den  Wert  der  Variablen  <wahl  >, 
wenn  ein  Abrufwechsel  gewünscht  wird.  Soll  im  gleichen 
Steuerprogramm  weitergemacht  werden,  kann  eine  beliebige 
Taste  außer  J,  E  oder  W  gedrückt  werden.  Wird  die  Taste  W  ge¬ 
drückt,  so  wird  bei  wahl=l  das  gleiche  Datum  noch  einmal 
verwendet,  während  bei  wahl=2  (Jahreskalender-Ausdruck) 
der  Kalenderdruck  wiederholt  wird. 
Jahreskalender-Ausdruck  (Zeilen  1180-  1300): 

Zunächst  werden  alle  nötigen  Daten  erfragt.  Bei  einer  fal¬ 
schen  Eingabe  bewirken  die  Steuerzeichen  (ll)+(7),  daß 
nach  ihrer  Ausführung  die  Eingabe  auf  der  gleichen  Zeile  wie 
vorher  erfolgt,  die  falsche  Eingabe  aber  noch  sichtbar  ist. 
Entsprechend  dem  gewünschten  Kalenderformat  werden 
dann  die  Variablen  für  die  Schrittweite  belegt;  bei  Ausgabe 
auf  Drucker  wird  dieser  auf  die  entsprechende  Druckart  ein¬ 
gestellt  (1240).  Der  Cursor  bleibt  hinter  "Bitte  warten"  stehen, 
wo  vor  Ermittlung  eines  Monats  ein  Punkt  ausgegeben  wird 
(was  die  Wartezeit  optisch  verkürzen  soll). 

Das  Programm  ermittelt  nun  die  Startwerte  (s.o.).  Die  Ermitt¬ 
lung  der  Kalenderdaten  (Zeilen  1690  -  2020)  läuft  folgender¬ 
maßen  ab:  Die  Jahreszahl  wird  um  1  erniedrigt,  um  das  Vor¬ 
jahr  zu  überprüfen  (ein  Schalttag  verschiebt  das  Monatsra¬ 
ster  um  1  nach  vorn).  Danach  wird  der  Wert  des 
Wochenindex  nach  Anteil  der  beiden  Jahre  an  der  Woche 
»zwischen  den  Jahren«  bestimmt.  Ist  dies  geschehen,  so  be¬ 
ginnt  das  Programm  mit  dem  Auffüllen  der  Monatsraster 
(1770  -  2020).  Der  Startwert  des  jeweiligen  Monats  bestimmt 
nun  die  Anzahl  der  Leerfelder,  dann  werden  die  Tageszahlen 
in  das  Raster  eingetragen  (die  hier  verwendeten  DEC$- 
Befehle  müssen  für  CPC  664  und  6128  korrigiert  werden!  Siehe 
auch  Hinweis  in  Heft  11/85,  Seite  76).  Die  Zeilen  1850  bzw. 
1970  (Verkettung  der  Rasterspalten)  sehen  zwar  etwas  auf¬ 
wendig  aus,  sind  aber  hinsichtlich  der  Schnelligkeit  des 
String-handlings  durch  keinen  BASIC-Befehl  zu  über¬ 
bieten.  Nach  der  Rasterfüllung  wird  der  Wochenindex  hoch¬ 


gezählt  und  übertragen,  bis  im  betreffenden  Monat  kein 
Sonntag  bzw.  Montag  mehr  vorkommt,  und  der  nächste  Mo¬ 
nat  bearbeitet  werden  kann. 

Zeile  1910  bzw.  2010  verhindert,  daß  die  Wochen  im  neuen 
Jahr  mit  54  und  darüber  gezählt  werden.  (Anmerkung:  Die 
Befehle  zur  Einbindung  der  Wochenzahlen  habe  ich  im 
Horizontalformat  unwirksam  gemacht,  da  diese  eine  andere 
Ausdruckformatierung  erfordern.) 

Nach  Ermittlung  der  Kalenderraster,  wird  mit  Hilfe  der  Hart- 
mannschen  Formel  das  Datum  des  Osterfestes  bestimmt 
(Zeilen  2070-  2190). 

Vom  Osterfest  ausgehend,  werden  nun  die  übrigen  Feiertage 
errechnet.  Dabei  genügt  eine  Fallunterscheidung,  die  prüft, 
ob  der  Ostermonat  der  März  oder  der  April  ist.  Alle  Feiertage 
werden  nach  den  bekannten  Regeln  so  mit  dem  Osterfest 
kombiniert,  daß  man  nur  noch  Abzüge  bzw.  Hochrechnun¬ 
gen  treffen  muß,  wenn  der  Feiertag  außerhalb  seines 
Standard-Monats  liegt  (die  im  Programm  verwendeten  For¬ 
meln  sind  das  Ergebnis  von  algebraischen  Vereinfachungen). 
Die  Feiertage  des  zweiten  Halbjahres  sind  auf  den  1.  Advent 
ausgerichtet,  auch  hier  kann  man  ohne  große  Fallunterschei¬ 
dungen  auskommen. 

Anmerkung:  Die  Zeilen  2070  -  2190  sowie  2230  -  2340  werden 
bei  Jahreszahlen,  die  größer  als  2399  sind,  nicht  übersprungen 
(obwohl  die  Formel  nur  bis  2399  aufgestellt  wurde);  Zeile  2430 
verhindert  aber  den  Ausdruck  der,  in  einem  solchen  Falle,  fal¬ 
schen  Feiertagsdaten. 

Steuerung  des  Kalenderdrucks  (2380  -  2450): 

Diese  Routine  spricht  jedes  Ausgabegerät  speziell  an;  für  g=0 
wird  eine  Reihe  von  Anweisungen  ausgeführt:  Verbreiterung 
des  Ausgabebereichs,  Warten  aufTastendruck  (in  Zeile  2420) 
und  Re-Positionierung  des  Cursors.  Im  Falle  von  g=9  wird 
eine  ASCII-Datei  eröffnet;  ansonsten  benutzt  die  Routine  für 
alle  Ausgabegeräte  die  gleichen  PRINT-Unterprogramme 
(2490  -  2530  /  2550  -  2590,  2630  -  2680).  In  der  zuletzt  ge¬ 
nannten  Routine  habe  ich  die  USING-Formate  in  Variablen 
gespeichert;  dies  bietet  die  Möglichkeit,  die  Ausgabe  (unter 
Berücksichtigung  der  Reihenfolge  der  Parameter)  jederzeit 
neu  formatieren  zu  können,  ohne  dabei  am  Programm  selbst 
herumbasteln  zu  müssen. 

Die  DATA-Zeilen  2720  -  2990  dürfen  keinesfalls  verändert 
werden;  sie  stellen  die  28er-Tabelle  dar,  die  von  links  nach 
rechts  die  Startwerte  der  Kalendermonate  und  von  oben  nach 
unten  28  Standardjahre  beinhaltet.  Eine  Abweichung  von 
diesen  Werten  würde  zwangsläufig  zu  falschen  Ergebnissen 
führen.  Die  Summe  aus  allen  336  Werten  muß  1008  ergeben, 
andernfalls  ist  eine  der  Zeilen  falsch!  Matthias  Iwachiw 
Variablenliste: 

Viele  der  hier  aufgeführten  Variablen  werden  im  Programm 
mehrfach  genutzt,  sie  werden  aber  nur  dann  beschrieben, 
wenn  sie  eine  besondere  Funktion  ausüben. 

1.  Numerische  Variablen: 

d.m,q,a,b,c  Variablen  der  Hartmannschen 

Formel 

om.km.fm.hm.pm.ff,  Monatszahlen  der  Feiertage 
am.em 

ostem.karf.fast.himm,  Tageszahlen  der  Feiertage 
pfng,fron,advent,ttso. 
ernt.buss 
flag 

maxi  (1-12) 

Start  (1-12) 


2.String-Y'ariablen: 

fS(0-4) 

tgS(  1-42) 


wt$(0-7) 
mt$(  1-12.0-7) 


wird  gesetzt,  wenn  <jahr>  ein  Schalt¬ 
jahr  ist 

Höchstzahl  der  Tage  im  Kalender¬ 
monat  1-12 

Anzahl  der  Leerfelder  zu  Beginn  des 
Monatsrasters:  Startwert  für  die 
Datumsermittlung 

Strings  für  USING-Formatanwei- 
sungen 

wird  mit  den  Kalenderdaten  (Tages¬ 
zahlen  und  Leerfelder)jeden  Monats 
belegt 

enthält  die  Wochentags-Abkürzun¬ 
gen 

wird  mit  den  endgültigen  Daten  (mo¬ 
natsweise  gegliederte  Kalenderzei¬ 
len)  beschrieben 
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1000  GOTO  3030 

1010  RESTORE  2860: RETURN 

1020  REM  . 


1030  REM  •  EWIGER  GREGORIANISCHER  KAL 
ENDER  • 

1040  REM  •  Copyright  (1985)  by  Matthias 
Iwachiw  • 

1050  REM . . . . 


1060  : 

1070  REM  •••••  (1)  IMMERWIHRENDER  KALEND 

ER . . 

1080  : 

1090  PRINT"Bitte  das  Datum  im  Zahlenform 
at  (wie  folgt)  angeben:" 

1100  INPUT ; "Tag" ;d: INPUT Monat";m:IN 

PUT"  Jahr": jahr: PRINT 

1110  GOSUB  1410 

1120  ON  jp  GOTO  1100 

1130  GOSUB  1580 

1140  PRINT  USING  f $ ( 0 ) ;d , name$ (m ) , jahr , t 
age*( ( start (m)+d)MOD  7):GOTO  1320 
1150  : 

1160  REM  .  (2)  JAHRES KALENDER-AUSDRU 

CK . 

1170  : 

1180  INPUT"Kalenderausgabe  f)r  das  Jahr: 
",  jahr 

1190  IF  jahr «1582  OR  jahr >491 5  THEN  PRIN 
T  CHR$ (11 ) +CHRS ( 7 ) ; : GOTO  1180 
1200  INPUT"  vertikal  (1)  oder  horizontal 
(2)";format 

1210  IF  format. 1  THEN  a=7 :b=1 4 :c=21 :d=28 
:e=35  ELSE  a-1 :b=2:c=3:d=4:e=5 
1220  INPUT"Welches  Ausgabeger(t  (0,8  ode 
r  9 ) " ;  g 

1230  IF  g>0  AND  g<8  THEN  PRINT  CHR*(11)  + 
CHR$ ( 7 ) ; : GOTO  1220  ELSE  z-1 
1240  IF  g-8  THEN  INPUT"Entwurfdruck  (0) 
oder  NLQ  ( 1 ) " ;x: PRINT#8 ,code*+CHR* (x ) ; 
1250  PRINT"Bitte  warten"; 

1260  GOSUB  1580 
1270  GOSUB  1690 
1280  GOSUB  1770 
1290  GOSUB  2080 
1300  GOSUB  2380 
1310  : 

1320  PRINT: PRINT"Abruf Wechsel  (J/  ),  Wie 
derholung  (W)  oder  Ende  (E)?" 

1330  a$- UPPERS (INKEYS ):IF  a*=""THEN  1330 
1340  IF  a$-"W"THEN  ON  wähl  GOTO  1110,130 
0 

1350  IF  a*="E"THEN  END  ELSE  IF  a*="J"THE 
N  wahl=ABS (wahl-3 ) 

1360  ERASE  mt$,tg$:x=FRE(""):DIM  mtS(12, 

7 ) , tgS ( 42 ) :CLS 

1370  ON  wähl  GOTO  1090,1180 

1380  : 

1390  REM  •••••  Erkennung  von  Eingabefehl 

ern  • • • • • 

1400  : 

1410  j p=0: fehler =0: GOSUB  1730 

1420  IF  d-0  OR  m=0  THEN  fehler=1 :GOTO  14 

90 

1430  IF  m>12  THEN  fehler. 2 : GOSUB  1490:GO 
TO  1450 

1440  IF  d >max i ( m ) THEN  f ehler-3 : GOSUB  149 
0 

1450  IF  jahr«1 582  OR  jahr>4915  THEN  fehl 
er«4 :GOTO  1490 

1460  IF  m«2  AND  d=29  AND  flag.O  THEN  feh 
ler- 5  .-GOTO  1490 
1470  RETURN 
1480  : 

1490  jp=1 :ON  fehler  GOTO  1500,1510,1520, 
1530,1540 

1500  PRINT"Eingabe  ungtltig.  Datum  bitte 
vollstindig  angebeni ": RETURN 
1510  PRINT  USING"Sie  haben  einen  ##.  Mon 
at  erfunden. ";m:RETURN 

1520  PRINT  USING" Seit  wann  hat  der  &  ## 
Tage?";name$(m) , d : RETURN 

1530  PRINT"Von  diesem  Jahr  sind  keine  Da 
ten  ver f ) gbar ! ! " : RETURN 

1540  PRINT  USING"####  ist  (war)  leider  k 
ein  Schaltjahr. ";jahr:RETURN 
1550  : 

1560  REM  ••••••  Ermittlung  der  Startwert 

e  ....... 

1570  : 

1580  x-( jahr  MOD  100)MOD  28:rest=jahr  MO 
D  400 

1590  IF  rest-100  THEN  x-27  ELSE  IF  rest> 
100  THEN  x=x+4 

1600  IF  rest-200  THEN  x=3  ELSE  IF  rest>2 
00  THEN  x-x.4 

1610  IF  rest.300  THEN  x=7  ELSE  IF  rest >3 
00  THEN  X-X+4 

1620  POKE  383,41E:znr-2720+(x  MOD  28)»10 
1630  POKE  384, znr  MOD  256: POKE  385,INT(z 
nr/256) 

1640  GOSUB  1010 

1650  FOR  x=1  TO  12: READ  start (x ) :NEXT:RE 
TURN 
1660  : 

1670  REM  •••••  Ermittlung  der  Kalenderda 

ten  ••••• 


1680  : 

1690  RESTORE  2070 : jahr- j ahr-1 :GOSUB  1730 
: jahr-jahr+1 

1700  IF  start (1  )=6  OR ( start ( 1 )-5  AND  fla 
g»0)THEN  z  =  52 

1710  IF  start (1 )=4  OR ( start ( 1 ) -5  AND  fla 
g-1 )THEN  z  =  53 
1720  : 

1730  IF  jahr  MOD  4=0  THEN  flag=1  ELSE  fl 
ag=0 

1740  IF  jahr  MOD  100-0  AND  jahr  MOD  400> 
0  THEN  flag=0 
1750  RETURN 
1760  : 

1770  FOR  x=1  TO  12 

1780  FOR  y=1  TO  42:tgS(y)-"  ":NEXT:PRI 

NT".”; 

1790  FOR  y-1  TO  maxi (x ): tg* (start (x )+y) = 
DECS((y,"###"):NEXT 

1800  IF  x-2  AND  flag.O  THEN  tgS( start <x) 
♦29)=" 

1810  ON  format  GOSUB  1840,1940 
1820  NEXT: PRINT: RETURN 
1830  : 

1840  FOR  y-1  TO  7 

1850  mtS (x,y ) -wtS (y )+tg$ (y ) +tg$(y+a )+tg$ 
(y+b)+tg*(y+c)+tg*(y+d)+tg*(y+e) 

1860  NEXT:mt$(x,0)-wtS(0) 

1870  FOR  y-1  TO  36  STEP  7 

1880  mt$ (x, 0 ) =mt J ( x , 0 ) ♦DECS (( z ,"###" ) 

1890  IF  tg*(y+f)-"  "THEN  RETURN  ELSE  z 

=z.1 

1900  IF  tg$(y+7)-"  "THEN  RETURN  ELSE  I 
F  z-54  THEN  z-1 

1910  IF  z=53  AND(x=1  OR  start(x)=0  OR  st 
art(x) >4 )THEN  z-1 
1920  NEXT: RETURN 
1930  : 

1940  REM  mt$ (x,0 ) «"  "+wt$(0) 

1950  FOR  y=1  TO  7:mt*(x,0)=rat*(x,0)+"  "♦ 
wtj (y ) :NEXT 

1960  FOR  y-1  TO  36  STEP  7 

1970  mtS (x,y\7+a ) =tg$ (y )+tg$ (y+a )+tg$ ( y+ 

b)+tg*(y+c)+tg*(y+d)+tg*(y+e)+tg*(y+f ) 

1980  REM  mt* (x ,y\7+a ) =DEC$ (( z ,"##." ) .rat* 

(x,y\7+a) 

1990  IF  tg* (y+f )="  "THEN  RETURN  ELSE  z 

=z+1 

2000  IF  tg* (y+7 )="  "THEN  RETURN  ELSE  I 

F  z=54  THEN  z=1 

2010  IF  z=53  AND(x=1  OR  start (x)-0  OR  st 
art(x) >4)THEN  z-1 
2020  NEXT: RETURN 
2030  : 

2040  REM  ......  Berechnung  des  Osterfest 


2050  REM 


nach  Joh.  Hartmann  . 


2060  : 

2070  DATA  10,202,3,2,5,5,6,12,10 

2080  READ  d ,m,om, fm, hm,pm, ff ,am,em 

2090  IF  jahr >1 699  THEN  d=d+1  :ra=m+1 

2100  IF  jahr >1799  THEN  d=d+1 

2110  IF  jahr >1899  THEN  d-d+1  :m-m+1 

2120  IF  jahr >2099  THEN  d=d+1 

2130  IF  jahr >21  99  THEN  d-d+1  :m-m+1 

2140  IF  jahr >2299  THEN  d-d+1 :m-m+1 

2150  q=FIX( jahr/4 ):a-jahr  MOD  19:b=(m-11 

•a ) MOD  30 

2160  IF(d=1 0  OR  d-1 5 ) AND  b-29  THEN  b=28 
2170  IF(d=1 3  OR  d=14)AND(b=28  OR  b=29)TH 
EN  b-b-1 

2180  c=( jahr+q.b-d)MOD  7 :ostern=28+b-c 
2190  IF  ostern>31  THEN  ostern=ostern-31  : 
om-om+1 
2200  : 

2210  REM  •••••  Weitere  bewegliche  Feiert 
age  ••••• 

2220  : 

2230  kar f -ostern-2 : IF  karf<1  THEN  karf=k 

arf+31  :km=om-l  ELSE  km=om 

2240  IF  om=3  THEN  f ast-ostern+f lag-1 9:hi 

mm=ostern-22 : pf ng=ostern-1 2 : f f =f f -1 

2250  IF  om=4  THEN  f ast=ostern+f lag+1 2:hi 

mm=ostern+9 : pf ng=ostern+1 9 

2260  IF  fast >28+f lag  THEN  fast-fast-28-f 

lag:fm=fm+1 

2270  IF  himm<1  THEN  himm-hiram+30 :  hm=hm-1 
2280  IF  himm  >31  THEN  himm=himm-31 :hm-hm+ 
1 

2290  IF  pfng>31  THEN  pfng=pfng-31  :pm=pm+ 
1 

2300  fron=ostern-1 :IF  fron<1  THEN  fron=f 
ron+31 :ff=f f-1 

2310  advent=7-start(12) :IF  advent>3  THEN 
advent=advent+23:am=am-1 
2320  ttso=advent-7 : IF  ttso<1  THEN  ttso=t 
tso+30 

2330  IF  advent-2  THEN  ernt-30:em=9  ELSE 

ernt=ttso-1 8 

2340  buss-ttso-4 :RETURN 

2350  : 

2360  REM  .  Steuerung  des  Kalenderdru 

cks . 

2370  : 

2380  IF  g-0  THEN  WINDOW  SWAP  0,1:CLS 
2390  IF  g-9  THEN  OPENOUT"Kalender"+STR* ( 
jahr) 

2400  FOR  z>3  TO  12  STEP  3:y=z-1 :x=z-2 

2410  ON  format  GOSUB  2490,2550 

2420  IF  g=0  AND  NOT(z=12  AND  jahr>2399)T 

HEN  PRINT  CHR$ ( 7 ) : CALL  4BB06:CLS 

2430  NEXT: IF  jahr <2400  THEN  GOSUB  2630 

2440  IF  g=0  THEN  WINDOW  SWAP  0,1:LOCATE 

1 ,VPOS(#1 ) 

2450  CLOSEOUT: RETURN 
2460  : 

2470  REM  •••••  Ausdruck  des  Kalenderquar 
tals  •••• 

2480  : 

2490  PRINT#g 

2500  PRINT#g ,TAB ( 1 0 )name$ (X ) jahr  TAB(33) 


name$(y)jahr  TAB(56)name*(z) jahr 

2510  PRINT#g : PRINT#g,TAB( 8 )mt$ (x, 0 )TAB ( 3 

1  )mt$ (y , 0 )TAB( 54 )mt$ (z ,0 ) :PRINT#g 

2520  FOR  q-1  TO  7 : PRINT#g,TAB ( 8 )mt S (x,q ) 

TAB( 31 )mt*(y ,q)TAB( 54 )mt*( z ,q ) :NEXT 

2530  PRINT#g:RETURN 

2540  : 

2550  PRINT#g 

2560  PRINT#g ,TAB ( 1 1 )name*(x) jahr  TAB(34) 
name$(y)jahr  TAB (57 )name$ ( z ) jahr 
2570  PRINT#g:PRINT#g,TAB(7)mt*(x,0)TAB(3 
0 )mt$ (y ,0 )TAB( 53 )mt$ ( z , 0 ) 

2580  FOR  q-1  TO  6:PRINT#g,TAB(7)mt*(x,q) 
TAB( 30 )mt$ (y ,q)TAB( 53 )mt$ ( z ,q ) :NEXT 
2590  PRINT#g: RETURN 
2600  : 

2610  REM  •••••  Ausdruck  der  Feiertagster 
mine 
2620  : 

2630  PRINT#g : PRINT#g ,TAB ( 8 ) "Bewegliche  F 
eiertage  im  Jahreslauf :": PRINT#g 
2640  PRINT#g , TAB ( 8 (USING  f $ ( 1 ) ; fast , name 
J (fm) ,karf ,name$(km) , ostern, nameS(om) 

2650  PRINT#g,TAB ( 8 ) US ING  f * ( 2 ) ; himm , name 
J(hm) , pf ng , nameS ( pm ) , fron , name* ( ff ) 

2660  PRINT#g , TAB ( 8 ) USING  f $ ( 3 ) ;ernt , name 
$ ( em ) , buss , name$ (11) 

2670  PRINT#g ,TAB ( 8 ) US ING  f $ ( 4 ) ; ttso, adve 
nt, name* (am) 

2680  RETURN 
2690  : 

2700  REM  ••  Start werte -Tabelle  •• 

2710  : 

2720  DATA  5,1 ,2, 5, 0,3, 5, 1,4, 6, 2, 4 
2730  DATA  0,3, 3, 6,1 ,4, 6, 2, 5, 0,3, 5 
2740  DATA  1 , 4 , 4 , 0 , 2 , 5 , 0 , 3 , 6 , 1 , 4 , 6 
2750  DATA  2, 5, 5,1 ,3,6,1 ,4, 0,2, 5,0 
2760  DATA  3 , 6 , 0 , 3 , 5 , 1  , 3 , 6 , 2 , 4 , 0 , 2 
2770  DATA  5,1 , 1 , 4, 6 ,2, 4 ,0 ,3, 5,1 ,3 
2780  DATA  6, 2, 2, 5, 0,3, 5, 1,4, 6, 2, 4 
2790  DATA  0 , 3 , 3 , 6 , 1 , 4 , 6 , 2 , 5 , 0 , 3 , 5 
2800  DATA  1 , 4 , 5 , 1 , 3 ,6 , 1 , 4 , 0 , 2 , 5 , 0 
2810  DATA  3, 6, 6, 2, 4, 0,2, 5,1 ,3,6,1 
2820  DATA  4, 0,0, 3, 5,1 ,3, 6, 2, 4, 0,2 
2830  DATA  5,1 ,1 ,4, 6,2, 4, 0,3, 5,1 ,3 
2840  DATA  6, 2, 3, 6,1 ,4, 6, 2, 5, 0,3, 5 
2850  DATA  1 ,4, 4, 0,2, 5, 0,3, 6,1 ,4,6 
2860  DATA  2, 5, 5,1 ,3,6,1 ,4, 0,2, 5,0 
2870  DATA  3 ,6 ,6 ,2 , 4 , 0 ,2 , 5, 1 , 3 ,6 , 1 
2880  DATA  4,0,1 ,4,6, 2,4,0, 3,5,1 ,3 
2890  DATA  6 , 2 ,2 ,5, 0, 3 , 5, 1 , 4 , 6 ,2 , 4 
2900  DATA  0,3, 3, 6, 1,4, 6, 2, 5, 0,3, 5 
2910  DATA  1  ,4, 4, 0,2, 5, 0,3, 6,1 ,4,6 
2920  DATA  2, 5 ,6 ,2, 4 ,0 ,2 , 5 ,1  , 3 ,6 , 1 
2930  DATA  4 , 0,0 , 3, 5, 1 , 3 ,6 ,2 , 4,0 ,2 
2940  DATA  5, 1 , 1 , 4, 6, 2 , 4 ,0, 3 , 5, 1 ,3 
2950  DATA  6, 2, 2, 5, 0,3, 5,1 ,4, 6, 2, 4 
2960  DATA  0 , 3, 4 ,0 ,2,5,0 , 3 , 6 , 1 , 4 ,6 
2970  DATA  2, 5, 5,1 ,3,6,1 ,4, 0,2, 5,0 
2980  DATA  3, 6, 6, 2, 4, 0,2, 5,1 ,3,6,1 
2990  DATA  4,0 ,0, 3 ,5,1 , 3 ,6 ,2 , 4 , 0,2 
3000  : 

3010  REM  •••  Initialisierung  •••• 

3020  : 

3030  SYMBOL  AFTER  91 

3040  SYMBOL  91,90,60,102,102,126,102,102 
3050  SYMBOL  123,108,0,120,12,124,204,118 
3060  SYMBOL  124,102,0,60,102,102,102,60 
3070  SYMBOL  125,102,0,102,102,102,102,62 
3080  SYMBOL  126,60,102,102,108,102,102,1 
08,96 

3090  OPENOUT"" :MEMORY  HIMEM-1 : CLOSEOUT 
3100  : 

3110  MODE  2 : WINDOW  8 , 75 , 1 , 25 : WINDOW# 1 , 1 , 
80,12,25 

31 20  PRINT"Dieses  Programm  macht  Kalende 
rdaten  von  1582  bis  4915  (nach  grego-" 
3130  PRINT"rianischer  Zeitrechnung)  verf 
)gbar.  Zwei  Abruf arten  sind  m (glich:" 
3140  PRINT : PRINT"  ( 1  )  IMMERWIHRENDER  KALE 
NDER : " 

31 50  PRINT"  Nach  Eingabe  eines  Datums 
wird  der  Name  des  entsprechenden  Wo-" 
3160  PRINT"  chentages  bestimmt  und  au 
sgegeben." 

3170  PRINT: PRINT" ( 2 )  JAHRESKALENDER-AUSD 
RUCK:" 

3180  PRINT"  Der  f)r  das  gew(hlte  Jahr 
geltende,  vollst(ndige  Kalender  wird“ 
3190  PRINT"  wahlweise  auf  Bildschirm, 
Drucker  oder  Cassette  ausgegeben." 

3200  : 

3210  DEFINT  a-z:f =6: WINDOW  8 , 75 , 1 2 ,25 :RE 
STORE  3300 

3220  DIM  maxi ( 1 2 ) , start ( 1 2 ) ,mt$( 12 ,7 ) , tg 
*( 42 ) , name* (12) 

3230  FOR  x— 1  TO  1 2 : READ  name* ( x ) ,maxi ( x ) 
:NEXT 

3240  FOR  x=0  TO  6 : READ  tage* (x) :NEXT 
3250  FOR  x-0  TO  7 : READ  wt*(x):NEXT 
3260  FOR  x-0  TO  4 :READ  f*(x):NEXT 
3270  code*=CHR! ( 27  »♦"8"+CHR* (27 )  +  "x" 

3280  INPUT"Bitte  w(hlen  (1  oder  2):  ",wa 
hl :CLS:ON  wähl  GOTO  1090,1180 
3290  : 

3300  DATA  Januar, 31 .Februar, 29, M(rz, 31 ,A 

pri 1 , 30 ,Mai , 31 , Juni, 30, Juli, 31 

3310  DATA  August, 31 .September, 30, Oktober 

,31  .November ,  30 , Dezember ,  31 

3320  DATA  Sonntag, Montag, Dienstag, Mittwo 

ch , Donnerstag, Freitag, Samstag 

3330  DATA  W., Mo, Di, Mi, Do, Fr, Sa, So 

3340  DATA  "Der  ##.  4  ####  ist  (war)  nat > 

rlich  ein  4." 

3350  DATA  "Fastnacht  ##.  \  \,  Karfre 

itag  ##.  4,  Ostern  ##.  4,  Him-" 

3360  DATA  "mel fahrt  ##.  4,  Pfingsten  ##. 

4,  Fronleichnam  ##.  4,  Ernte-" 

3370  DATA  "dankfest  ##.  \  \,  Bu~- 

und  Bettag  ##.  4,  Totensonntag" 

3380  DATA  "##.  November,  1.  Advent  ##.  4 
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CPC-Assembler 

Der  Einstieg  in  die  Maschinensprache  ist  nicht  einfach,  ins¬ 
besondere,  wenn  es  auch  noch  am  richtigen  Werkzeug  man¬ 
gelt.  Wem  bisher  zum  Z  80  Assemblerkurs  ein  passender  As¬ 
sembler  fehlte,  der  findet  hier,  was  er  braucht: 

Der  gesamte  Z  80-Befehlssatz  und  alle  gängigen  Assembler¬ 
direktiven  werden  verarbeitet.  Das  Listing  kann  wahlweise 
auf  dem  Bildschirm  oder  Drucker  ausgegeben  werden,  und 
nach  der  Übersetzung  stehen  drei  Aufzeichnungsformate  für 
Cassette/Diskette  zur  Verfügung.  Das  Quellprogramm  wird 
in  Form  von  Basiczeilen  eingegeben,  so  daß  Hilfsmittel  wie 
LIST,  EDIT,  AUTO,  DELETE  usw.  in  gewohnter  Weise  be¬ 
nutzt  werden  können. 

Aus  diesem  Grund  ist  der  Assembler  nicht  nur  für  fortgeschrit¬ 
tene  Programmierer  geeignet,  sondern  auch  für  den  Anfänger 
eine  ideale  Ergänzung  zum  Assemblerkurs. 

Allerdings  legt  der  Assembler,  genau  wie  der  Basic-Interpreter 
des  CPC,  großen  Wert  auf  korrekte  Eingaben.  Die  folgende 
Anleitung  sollte  deshalb  sorgfältig  studiert  werden. 

Hinweise  zum  Abtippen: 

Die  REM-Kommentare  im  Listing  brauchen  nicht  mit  einge¬ 
geben  zu  werden.  Sie  dienen  nur  als  Orientierung  und  Hilfe 
bei  einer  hoffentlich  nicht  notwendigen  Fehlersuche. 
Beachtet  werden  muß  der  Unterschied  zwischen  der  norma¬ 
len  Division  und  der  Ganzzahldivision  (umgekehrter  Schräg¬ 
strich).  Wichtig  ist  weiterhin,  daß  die  Leerzeichen  in  den 
Befehls-  und  Registertabellen  im  Initialisierungsteil  korrekt 
mit  eingegeben  werden. 

Die  Eingabe  des  Quellcodes: 

Das  Quellprogramm  wird  in  Form  von  Basiczeilen  eingege¬ 
ben;  es  kann  beliebig  Groß-  und  Kleinschreibung  benutzt 
werden.  Jede  Zeile  beginnt  also  mit  einer  Zeilennummer,  wo¬ 
bei  der  Bereich  von  1-9999  zur  Verfügung  steht.  Auf  die  Zeilen¬ 
nummer  muß  ein  REM-Apostroph  (')  folgen,  da  die  Zeile 
sonst  in  den  Interpretercode  umgewandelt  wird  und  vom  As¬ 
sembler  nicht  mehr  gelesen  werden  kann.  Für  die  Eingabe 
des  Quellprogramms  ist  der  Assembler  nicht  notwendig,  er 
kann  nachträglich  mit  MERGE  dazugeladen  und  mit  RUN 
gestartet  werden. 

Die  Syntax: 

Eine  Quellprogrammzeile  setzt  sich  wie  folgt  zusammen: 

Zeilennummer  Label  Befehl  Operand;  Kommentar 
Label,  Befehl  und  Operand  müssen  durch  mindestens  ein 
Leerzeichen  getrennt  sein,  dürfen  aber  selber  keine  Blanks 
enthalten.  Falsch  wäre  zum  Beispiel: 

10  START  LD  A,  (HL);  Akku  laden 
Hier  meldet  der  Assembler  einen  Fehler,  da  der  Operand  ein 
Leerzeichen  enthält. 

Alles,  was  auf  ein  Semikolon  folgt,  wird  als  Kommentar  be¬ 
trachtet  und  bei  der  Assemblierung  nicht  weiter  berücksich¬ 
tigt. 

Die  Eingabe  von  Zahlen: 

Zahlen  werden  in  der  beim  CPC  üblichen  Weise  angegeben, 
also  mit  einem  vorangestellten  für  Hexadezimalzahlen 
bzw.  ”&X"  für  Binärzahlen.  Der  Assembler  akzeptiert  auch 
negative  Zahlen,  die  automatisch  ins  Zweierkomplement  um¬ 
gerechnet  werden. 

Die  Verwendung  von  Labels: 

Programmzeilen  können  mit  einem  Namen  (Label)  gekenn¬ 
zeichnet  werden,  der  dann  bei  Sprungbefehlen  die  absolute 
oder  relative  Adresse  ersetzt.  Weiterhin  ist  es  möglich,  einem 
Label  mit  Hilfe  der  Assemblerdirektive  EQU  einen  Wert  zu¬ 
zuweisen.  Dazu  ein  Beispiel: 

10  WERT  EQU  32 

20  START  LD  A,  WERT;  Akku  mit  32  laden 

100  JR  START;  relativer  Sprung  nach  START 

Der  Assembler  merkt  sich  den  zum  Label  gehörenden  Wert  in 
einer  Tabelle  und  baut  ihn  korrekt  in  das  Maschinenpro¬ 
gramm  ein. 

Ein  Label  muß  mit  einem  Buchstaben  beginnen  und  kann 
maximal  6  Zeichen  lang  sein:  der  Rest  wird  erbarmungslos 
abgeschnitten. 


Zum  Abschluß  der  Übersetzung  gibt  der  Assembler  die  ge¬ 
samte  Labeltabelle  auf  dem  Bildschirm  aus.  Wurde  ein  Label 
benutzt,  aber  nicht  im  Programm  definiert,  so  erfolgt  eine 
Fehlermeldung. 

Die  Pseudobefehle: 

Das  sind  Anweisungen,  die  nicht  zum  Z  80-Befehlssatz  gehö¬ 
ren,  sondern  direkt  vom  Assembler  ausgeführt  werden.  Der 
CPC  Intemational-Assembler  versteht  folgende  Kommandos: 

ORG  adr  : 

Bestimmt  die  Startadresse  des  Maschinenprogramms.  Nor¬ 
malerweise  reserviert  der  Assembler  den  Bereich  ab  Adresse 
&A00O  für  Maschinencode  (Objektcode).  Wird  diese  Grenze 
mit  einer  ORG-Anweisung  unterschritten,  paßt  der  Assem¬ 
bler  HIMEM  automatisch  an,  damit  das  Programm  nicht 
durch  Basic  überschrieben  wird, 
label  EQU  wert : 

Weist  einem  Label  einen  Zahlenwert  zu. 

DB  n  : 

Schreibt  das  Byte  n  ins  Programm. 

DW  nn  : 

Schreibt  den  2-Byte-Wert  nn  ins  Programm. 

DSn  : 

Reserviert  einen  Speicherbereich  mit  einer  Länge  von  n  Bytes 
für  Variablen. 

DM  ”text”  : 

Erlaubt  die  Eingabe  eines  Textes  in  das  Maschinenprogramm. 
Der  Text  muß  in  Anführungszeichen  eingeschlossen  sein. 
Jede  DM-Anweisung  kann  maximal  10  Zeichen  übergeben. 
END  : 

Bezeichnet  das  Ende  des  Quellprogramms.  Trifft  der  Assem¬ 
bler  auf  eine  Zeilennummer  >9999,  so  wird  die  Übersetzung 
ebenfalls  beendet. 

Anmerkung: 

Die  Kommandos  DB,  DW,  DS  und  DM  tauchen  in  Assem- 
blerlistings  auch  häufig  in  der  Form  DEFB.  DEFW,  DEFS 
und  DEFM  auf,  haben  aber  die  gleiche  Bedeutung. 

Relative  Sprünge  und  Restart-Befehle: 

Bei  relativen  Sprüngen  kann  die  Zieladresse  oder  die  Sprung¬ 
distanz  in  der  Form  S+dis  bzw.  $-dis  angegeben  werden.  Auf 
Restart-Befehle  muß  die  zugehörige  Adresse  folgen,  z.B. 
RST&18. 

Das  Listjng: 

Bei  der  Übersetzung  wird  ein  Listing  des  Quellprogramms  er¬ 
stellt  und  zusätzlich  noch  der  Objektcode  und  die  dazu¬ 
gehörige  Adresse  angegeben. 

Bei  der  Verwendung  von  Labels  ist  eine  Besonderheit  zu  be¬ 
achten:  Trifft  der  Assembler  auf  ein  Label,  das  erst  zu  einem 
späteren  Zeitpunkt  im  Programm  definiert  wird  (zum  Beispiel 
bei  Vorwärtssprüngen),  so  kann  er  den  Objektcode  noch 
nicht  vollständig  angeben  und  setzt  provisorisch  Nullbytes 
ein.  Diese  Zeilen  sind  mit  einem  Stern  (*)  gekennzeichnet. 
Nach  Abschluß  der  Übersetzung  steht  das  Maschinenpro¬ 
gramm  trotzdem  komplett  im  Speicher,  da  die  fehlenden 
Werte  nachträglich  eingesetzt  werden.  Falls  ein  vollständiges 
Listing  des  Objektcodes  gewünscht  wird,  kann  ein  zweiter 
Durchlauf  (Pass)  gestartet  werden,  bei  dem  der  Assembler 
dann  über  die  vollständige  Labeltabelle  verfügt. 

Die  Fehlerbehandlung: 

Folgende  Fehlermeldungen  können  unter  Angabe  der  Zei¬ 
lennummer  bei  der  Assemblierung  auftreten: 

'  missing : 

Der  REM-Strich  am  Anfang  der  Zeile  fehlt.  Dieser  Fehler 
führt  allerdings  in  den  meisten  Fällen  schon  gleich  nach  dem 
Programmstart  mit  RUN  zu  einem  Syntax-Error,  der  durch 
den  Interpreter  des  CPC  angezeigt  wird. 

Syntax  Error  : 

Die  Zeile  kann  nicht  übersetzt  werden,  da  ein  Befehl  oder 
das  Format  unzulässig  ist. 

Distance  out  of  Range  : 

Bei  einem  relativen  Sprung  oder  einem  indizierten  Befehl 
wurde  eine  zu  große  Distanz  angegeben. 

Operand  missing  : 

Ein  Operand  fehlt  oder  enthält  Leerzeichen. 

Improper  Argument  : 

Ein  Operand  enthält  einen  unzulässigen  Ausdruck. 

Im  Unterschied  zum  Basic-Interpreter  bricht  der  Assembler 
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nach  einer  Fehlermeldung  nicht  ab.  Dadurch  können  alle  in 
einem  Programm  enthaltenen  Fehler  ermittelt  werden,  ohne 
daß  der  Übersetzungsvorgang  jedesmal  neu  gestartet  werden 
muß.  Zum  Abschluß  gibt  der  Assembler  die  Gesamtzahl  der 
Fehler  an. 

Die  Aufzeichnung: 

Das  Maschinenprogramm  kann  nach  der  Assemblierung  un¬ 
ter  dem  beim  Programmstart  angegebenen  Namen  mit  dem 
Zusatz  ”/OC”  (Objektcode)  als  Binärfile  gespeichert  werden. 
Weiterhin  ist  eine  Umwandlung  in  Datazeilen  möglich,  die 
mit  dem  Zusatz  "/BL"  (Basiclader)  auf  Cassette/Diskette  ge¬ 
schrieben  werden.  Mit  dem  dritten  Aufzeichnungsformat 
wird  der  Quellcode  (”/QC”)  als  ASCII-File  gesichert,  ohne  daß 
vorher  der  Assembler  gelöscht  werden  muß. 

Danach  kann  das  Quellprogramm  mit  DELETE  -9999  ge¬ 
löscht  werden  und  bei  Bedarf  ein  neues  Programm  mit 
MERGE  nachgeladen  werden. 

Hier  ein  kleines  Programm  zum  Ausprobieren.  Es  invertiert 
den  gesamten  Bildschirm  und  wird  nach  der  Assemblierung 
mit  CALL  &A000  aufgerufen. 

So  wird  es  eingegeben: 

10  ‘.Sereen  Invers 
20  '  org  fcaOOO 

30  'ld  hl.bcOOO«  Startadr.  Sereen 

40  'loop  ld  a.(hl)  iScreenbyte  holen 

50  ‘ cpl s  Komplement  bilden 

60  'ld  (hl).a  i und  zurueck 

70  * inc  ls  Lowbyte+1 

80  ’Jr  nz.loopi  nach  1 oop. fal ls< >0 

90  'Ine  hi  Highbyte+1 

100  ’jr  nz.loopi  nach  1 oop. fal 1 ■< >0 

110  ’reti  zurueck  zu  Basic 

120  'end 

...  und  das  macht  der  Assembler  daraus: 


8000 

10 

tScreen  Invers 

8000 

20 

086 

«8000 

8000 

2100C0 

30 

LD 

HL .  «.COOO 

s  Startadr.  Sereen 

8003 

7E 

40  LOOP 

LD 

8. (HL) 

iScreenbyte  holen 

8004 

2F 

50 

CPL 

5  Komplement  bilden 

8003 

77 

60 

LD 

(HL) .8 

; und  zurueck 

8006 

2C 

7°  / 

*>' 

INC 

L 

■  Lowbyte+1 

8007 

20F8 

JR 

NZ . LOOP 

!  nach  loop.  fallsOO 

8009 

24 

9b 

INC 

H 

s  Highbyte*l 

8008 

20F7 

100 

JR 

NZ  »  LOOP 

i  nach  loop.  fallsOO 

800C 

C9 

110 

RET 

:  zurueck  zu  Basic 

Programm!  scr  invers  Start!  «,8000  Ende!  &80OC  Laengei  bOOOD  Fehler!  0 

Matthias  Uphoff 

1 0000  '******************************** 

10001  ' *  CPC  International  * 

10002  '*  Z  80- ASSEMBLER  * 

10003  '*  c  1985  Matthias  Uphoff  * 

10004  ' ******************************** 

10005  ********************************* 

10006  ' Ini tial isierung 

10007  '******************************** 
10010  MEMORY  &9FFF : MODE  2s  INK  0,13: INK  1 
, 0 : BORDER  3: DEFINT  a-r:z$="" 


10020 

t0$=" 

LD 

JR 

DJNZ 

CALL 

RET 

JP 

INC 

DEC 

POP 

PUSH 

RST 

IN 

OUT 

IM 

EX 

ADD 

ADC 

SUB 

SBC 

AND 

XOR 

OR 

CP 

RLC 

RRC 

RL 

RR 

SLA 

SRA 

*** 

*  SRL 

BIT 

RES 

SET 

II 

10030 

tl*=" 

CCF 

CPL 

DAA 

DI 

EI 

EXX 

HALT 

NOP 

RLA 

RLCA 

RRA 

RRCA 

SCF 

II 

10040  DATA  3F , 2F , 27 , F3, FB, D9, 76, 00 ,  17,07 
,  1F,  OF,  37 

10050  t.2$="  CPD  CPDR  CPI  CPIR  IND  IND 

R  INI  INIR  LDD  LDDR  LDI  LDIR  NEG  OTD 

R  OTIR  OUTD  OUTI  RETI  RETN  RLD  RRD  " 

10060  DATA  A9,B9, A1,B1,AA,BA,A2,B2,A8,B8 
,  AO,  BO  ,  44,  BB,  B3,  AB,  A3,  4D,  45, 6F,  67 

10070  t3$="  EQU  ORG  DB  DW  DM  DS  END 
•• 

10080  DIM  1t$ (120) ,w1t<120) ,u1t$(60> ,u1d 
(60)  ,  c  1  (12)  ,  c2  (20  ) 

10090  FOR  i =0  TO  12: READ  a$ : cl (i ) =VAL ( 

«NEXT 

10100  FOR  i =0  TO  20 : READ  a$: c2 ( i ) =VAL ( 
"+a$) :NEXT 

10110  rg$= "B  C  D  E  H  L  (HL) A  (IX( 
IY  " 

10120  dr$  = "BC  DE  HL  SP  IX  IY  " 

10130  co$= "NZ  Z  NC  C  PO  PE  P  M  " 

10135  '******************************** 

10136  '  Prograrnmstart- 


Vergessen  Sie  alles, 
was  Sie  bisher 
kennen!  ? 

Jetzt  gibt  es  RH-DAT! 

RH-DAT  Ist  die  Lösung  Ihrer  Probleme 

-  RH-DAT  ist  ein  Dateiverwaltungsprogramm  mit  FREIER  Maskendefinition  (max.  21 
Felder/max.  70  Zeichen  pro  Feld) 

-  RH-DAT  halt  Ihre  Daten  im  RELATIVEN  Zugriff 

-  RH-DAT  kann  nach  jedem  beliebigen  Datenteld  suchen 

-  RH-DAT  findet  einen  Datensatz  bei  der  Suche  im  Indexfeld  selbst  bei  voller  Datei 
(503/1003  Datensätze)  in  max.  4  Sekunden  (Regelfall  1  -  2  Sekunden) 

-  RH-DAT  ist  ein  CP/M-Programm 

Sie  werden  staunen,  was  IH-OAT  neck  alles  kannlll 
RH-DAT  ist  erhältlich  für  den  CPC  464,  664,  6128,  6256  auf  3”-  and 
5%  "-Diskette 


Preis 


503  Datensätze 
1003  Datensätze 


RH-BUERO 

Textverarbeitung,  Adressenverwaltung 
und  Mail-Merge 

Testbericht  in  CPC  August  85,  Seite  1 7 
NUR  Disk  3" 

5'A"  (VORTEX) 

Preis 


79,-  DM 
89,-  DM 


TEL  BESTELLUNG 
0211/5065-213 


69-  DM 


Komplettpakete 

1.  RH-ADW  (Komfortable  Adressenverwaltung) 

2.  RH-TEXT  (Super-Textverarbeitungsprogramm) 

3.  RH-SYNTHESIZER(Super-Synthesizerprogramm) 

4.  RH-VOKABULA  (ausgereiftes  Vokabel- Lernprogramm) 

5.  RH-GRAPH  (Klasse  Funktionsplotter) 

JETZT  ALS  KOMPLETT-PAKET 


40,-  DM 
40,-  DM 
40-  DM 
30-  DM 
30,-  DM 
180- DM 

50.-  DM 


Oder  ein  anderes  Beispiel: 


mJS( 

1.  Drucker-Kabel 
Zum  Anschluß  eines  Druckers  mit  CENTRONICS- 

Schnittstelle  58  -  DM 

2.  Wie  Komplett-Paket  '5  für  1*  1 80,-  DM 

238,-  DM 

Jetzt  als  KOMPLETT-PAKET  75-  DM 

Das  Superding  für  Profis 

RH-DMON  der  Diskettenmonitor  für  die  CPC  464,  664, 6128  mit  den 
unbegrenzten  Möglichkeiten 

■  Lesen  eines  beliebigen  Sektors 

■  Schreiben  eines  beliebigen  Sektors 

•  Editieren  eines  beliebigen  Sektors  (full  Sereen  Editor) 

■  Formatieren  einzelner  oder  aller  Tracks  (CP/M,  DAT.  IBM) 

•  Reorganisation  der  Diskette 

•  Anzeige  des  Katalogs 

■  Drucken  des  Bildschirminhalts 

■  Umrechnung  der  Blockangaben  in  Track  und  Sektor 

Das  Besondere 

Selbst  die  Spuren  40  und  41  können  bearbeitet  werden. 

Absolut  anwendersicher. 

Preis  3"  Disk  49-  DM 


£  co 

2  co 

=3  C\J 
CT3  v- 
02  co 

§ 

>  co 

ü  ^ 

3  CD 
CD  TD 
E  CD 

ee 

CTJ  cj 
Ol  co 
o 

o:  & 
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INTEGRAL  HYDRAULIK 


INTEGRAL  HYDRAULIK  &  CO. 
Computerdivision 
Am  Hochofen  108 
4000  Düsseldorf  1 1 
Tel.  0211/5065-213 


Vertrieb  von: 
RH-Software 
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10137  ********************************* 
10140  LOCATE  28, 4: PRINT" ***  CPC  INTERNAT 
ION AL  ***" 

10150  LOCATE  28, 6: PRINT"Z  8  0  -  A  S  S  E 
M  B  L  E  R" 

10160  LOCATE  28,  1 0 :  INPlJT"Prograrnrnname 
, na$i LOCATE  28,12 

10170  qpc  =368s  zpc  =  40960 : zps-zpc : 1 z  =  PEEK ( 
qpc) 

10180  INPUT "Drucker  ( j/n) : " , a«: CLS; IF  LO 
WER* (a$) =" j"  THEN  a=8  ELSE  a  =  0 

10185  ********************************* 

10186  'Programmzeile  lesen  und  zerlegen 

10187  ********************************* 
10190  n*PEEK (qpc+2) +256*PEEK (qpc+3) : IF  n 
>9999  THEN  11390 

10200  IF  PEEK (qpc+5) <>&C0  THEN  11250 
10210  k=qpc+6 : adr=@z$ : POKE  adr , lz-7 : POKE 
adr+1 , k  MOD  256: POKE  adr+2,k\256 
1 0220  qpc = qpc  + 1 z : 1 z=PEEK  <qpc) 

10230  i  =  INSTR  < z* IF  i  THEN  krn$  =  MID$ 
<z$, i> :z$=LEFT*(z$, i-1)  ELSE  km$="" 

10240  ul*="  " : 1 a*  =  " " : op*= " " ! lb=0: ds=0s  i  r 
f=ü:df=0:i=0:j=0:k=0 

10250  WHILE  i=k:k=k+l:i= INSTR ( k , z* , "  "): 
WEND 

10260  IF  i  THEN  a* < j ) »MID* <z$, k , i -k ) : IF 
ASC  (a*  ( jj)  )  034  THEN  k=i : j+ 1 : GOTO  10250 
10270  a* ( j) =MID* (z*, k) : a$ ( j+ 1 ) = " " : j=0 

10275  • ******************************** 

10276  'Test  auf  gueltigen  Befehl 

1 0277  ■ *******************************  * 
10280  bf*="  "+UPPER* <a$ < j) ) +  "  ":IF  a*(j) 
=""  THEN  11330 

10290  i=INSTR(tO$,bf*)  :  IF  i  THEN  10540 
10300  i = INSTR (tl*, bf*) : IF  i  THEN  10410 
10310  i=INSTR(t2*,bf*)  :  IF  i  THEN  10420 
10320  i »INSTR (t3*,bf*) s IF  i  THEN  10430 

10325  '******************************** 

10326  ' Verarbei tung  als  Label 

10327  ' ******************************** 
10330  a$=UPPER*<a*<0> ) :GOSUB  11610: IF  i 
OR  D  THEN  11260 

10340  j=l:la*=a*:IF  du  THEN  10280  ELSE  1 
t*  dtp)  =a*:wlt(ltp)  -zpc :  ltp=ltp+l 
10350  FOR  i =0  TO  flp-l:IF  la*=u1t*Ci>  TH 
EN  10370 

10360  NEXT: GOTO  10280 

10370  w=FIX (uld ( i ) ) : IF  w<0  THEN  sa=-w-l: 
za=zpc: GOSUB  11630: POKE  sa+l,of:GOTO  103 
90 

10380  k  =  INT (zpc/256) : POKE  w, zpc -256* k : PO 
KE  w+ 1 , k 

10390  FOR  k  =  i  TO  f 1 p- 1 : ul t* < k ) =u1 t* < k+ 1 > 

: ul d ( k ) =ul d  <  k  +  1 > : NEXT 

10400  flp=flp-l: 1=1-1: GOTO  10360 

10405  ' ******************************** 

10406  ' 1  u.  2  Byte-Befehle  ohne  Operand 

10407  ' ******************************** 
10410  lb* 1 : p ( 1 ) =cl ( i  \5) : GOTO  11330 
10420  lb  =  2:  p  ( 1 )  =  8<ED:  p  (2)  =c2  (i  \5)  :  GOTO  11 
330 

10425  '******************************** 

10426  'Ausfuehrung  der  Pseudobefehle 

10427  ********************************* 
10430  IF  i <25  THEN  j= j+ 1 : op$=UPPER$ ( a$ ( j 
)):a*  =  op$:IF  a*=""  THEN  11280 

10440  ON  i\4  GOTO  10470,10490,10500,1051 
0,10530, 11390 

10450  IF  la$=""  THEN  11260  ELSE  IF  du  TH 
EN  11330 

10460  GOSUB  11690: wlt CI tp-1) =w: lb=0: GOTO 
11330 

10470  GOSUB  1 1650 : zpc=w: zps=w: 1 b=0 

10480  IF  w<  »HIMEM  THEN  MEMORY  w-l:GOTO  1 

1330  ELSE  11330 

10490  GOSUB  11730: GOTO  11330 

10500  GOSUB  1 1650 : GOTO  11330 


10510  op$=a$(j) :1b=LEN(op*)-2:IF  1b>10  0 
R  ASC  Cop* )  034  THEN  11290 
10520  FOR  i  =  1  TO  1 b: p ( i ) =ASC (MID* (op$, i + 
1) ) : NEXT: GOTO  11330 

10530  GOSUB  1 1650: ds=w: lb=0: GOTO  11330 

1 0535  ********************************* 

10536  'Befehle  mit  Operand: 

10537  'Operand  zerlegen  und  Verzweigung 

1 0538  '******************************** 
10540  bp=i\5+l:j=j  +  l:op*=IJPPER*(a*(;>)  )  :I 
F  op$=""  AND  bp<>5  THEN  11280 

10550  ko= INSTR (opl, " , " ) : IF  ko  THEN  ol*  =  L 

EFT* Cop*, ko- 1 ) : o2*=MID* Cop*, ko+1 ) : IF  ol* 

=""  OR  o2*=""  THEN  11280 

10560  ka=INSTRCop*, " (") : IF  ka  THEN  kz=IN 

STR  Cop*, " ) " > : IF  kz>ka+ 1  THEN  ki*=MID*(op 

*, ka+1 , kz-ka- 1 )  ELSE  11260 

10570  1 b= 1 : ON  bp  GOTO  10590,10760,10790, 

1 0820 , 1 0830 , 1 0850 , 1 0890 , 1 0890 , 1 0930 , 1 093 
0 , 1 0960 , 1 0980 , 1 0980 , 1 1030 , 1 1 060 
10580  IF  bp<24  THEN  11090  ELSE  IF  bp<32 
THEN  11190  ELSE  11210 

1 0  585  1  ******************************* * 

10586  'Ladebefehle  LD 

1 0587  ********************************* 
10590  IF  ko=0  THEN  11260 

10600  a*=ol*: GOSUB  11740:IF  rf  THEN  1069 
0  ELSE  GOSUB  11790:IF  rf  THEN  10640 
10610  p=G: IF  ka  THEN  10630 
10620  IF  o2*="A"  AND  INSTR ( "IR" , a*)  THEN 
10710  ELSE  11290 

10630  IF  o2*="A"  THEN  10730  ELSE  a*=o2*: 
GOSUB  1 1 790 : IF  rf  THEN  10670  ELSE  11290 
10640  IF  ka  THEN  p=8:G0T0  10670 
10650  a*=o2*:IF  rg=3  THEN  GOSUB  11790:IF 
rg=2  THEN  p  <  1 )  =8<F9:  GOTO  11310 
10660  p(1)=1  OR (rg* 16) : GOSUB  11650: GOTO 
1 1310 

10670  IF  rg=2  THEN  p ( 1 ) =p  OR  8< 22  ELSE  p< 
1 )  =  8<ED:  p  (2)  =&43  OR  <  rg*  16)  OR  p:1b  =  2 
10680  a*=ki*: GOSUB  11650: GOTO  11310 
10690  p<l)«rg*8:a#»o2*: GOSUB  U740:IF  rf 
THEN  p ( 1 ) =p ( 1 ) OR  64  OR  rg:GOTO  11310 
10700  p=8: IF  ol$<>"A"  THEN  10750  ELSE  IF 
ka  THEN  10730 

10710  IF  a*  = "  I "  THEN  p  (2)  =8/47  ELSE  IF  a* 
=  "R"  THEN  p  (2)  =  8<4F  ELSE  10750 
10720  1  b  =  2:  p  ( 1 )  =  8<ED:  p  (2)  =p(2)0RCp*2)  :  GOT 
O  11330 

10730  a*=ki*:IF  a*="BC"  THEN  p(l)=2  ELSE 
IF  a*="DE"  THEN  p(l>=&12  ELSE  p(l)=8<32: 
GOSUB  11650 

10740  p  < 1 ) =p ( 1 ) OR  p: GOTO  11330 

10750  p ( 1 ) =p ( 1 ) OR  6:a*=o2*:G0SUB  11730:G 

OTO  11310 

10755  ' ******************************** 

10756  'Relative  Spruenge  -JR/DJNZ 

1 0757  '******************************** 
10760  IF  ko=0  THEN  p  C 1 )  =  8<18:  a*=op*:  GOTO 
1080  0 

10770  a*=ol*: GOSUB  11810: IF  rf=0  OR  rg>3 
THEN  11290 

10780  p(l)=(rg  OR  4) *8: a*=o2*: GOTO  10800 
10790  p ( 1 ) =&10: a*=op* 

10800  IF  ASC (a*) =36  THEN  w  =  zpc  +  VAL  (MID* ( 
a*,2)>  ELSE  GOSUB  11650:IF  w=0  THEN  w=zp 
c+2 

10810  1 b=2: sa=zpc: za=w: GOSUB  1 1630 : p (2) = 
of : GOTO  11330 

10815  ‘  ******************************** 

10816  'Spruenge  CALL/RET/ JP 

10817  ' ******************************** 
10820  IF  ko  THEN  p=&C4:G0T0  10880  ELSE  p 
(1)  =  8/CD:  GOTO  10870 

10830  IF  op*=""  THEN  p ( 1 > =&C9: GOTO  11340 
10840  a*=op*: GOSUB  11810: IF  rf  THEN  p(1) 
=&C0  OR ( rg*8) : GOTO  11330  ELSE  11290 
10850  IF  ka  THEN  a*=ki*:  GOSUB  11790.-IF  r 
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•3  =  2  THEN  p  <  1 )  =  ?<E9:  GOTO  11310 

10860  IF  ko  THEN  p=&C2:G0T0  10880  ELSE  p 

( 1 ) =&C3 

10870  a#=op#: GOSUB  11650: GOTO  11330 
10880  a#=ol#:SOSUB  11810: IF  r f  THEN  p(l) 
=  P  OR  < rg*8) : a#=o2#: GOSUB  11650: GOTO  1133 
0  ELSE  11290 

1 0885  1 ******************************** 

10886  'Zaehl befehle  INC/DEC 

1 0887  '******************************** 
10890  p=bp-7: a$=op$: GOSUB  11740:IF  rf  TH 
EN  10920 

10900  GOSUB  1 1790: IF  rf=0  THEN  11290 
10910  p ( 1 >  =  (p*8) OR ( rg* 16) OR  3:G0T0  11310 
10920  p(l)=p  OR  <  rg*8) OR  4:G0T0  11310 

1 0925  1  **********************  ********** 

10926  'Stapel befehle  POP/PUSH 

1 0927  '*********************  *********** 
10930  a#=op#:IF  a#="AF"  THEN  a#="SP" 
10940  GOSUB  1 1790: IF  rf=0  THEN  11290 
10950  p  ( 1 )  =  (  (bp-9)  *4)  OR  ( rg*  16)  OR  &C1:GGT 
O  11310 

1 0955  *********** ********************** 

10956  'Restartbefehle  RST 

1  0  957  ********************************* 
10960  a# =op# : GOSUB  11730: IF  w  AND  &C7  TH 
EN  11290 

10970  1 b= 1 : p ( 1 ) =&C7  OR  w:GOTO  11330 

1 0975  *****************  ********  ******** 

10976  'Ein-/ Ausgabebefehl e  IN/OUT 

1 0977  '******************************** 
10980  IF  ko*ka=0  THEN  11260 

10990  IF  bp= 12  THEN  p=0:a#=ol#  ELSE  p=l : 
a$=o2$ 

11000  GOSUB  1 1740: IF  rf=0  OR  irf  THEN  11 
290 

11010  IF  ki#="C"  THEN  1  b=2:  p  ( 1 )  =2<ED:  p  (2) 
=64  OR (rg*8) OR  p:GOTO  11310 
11020  IF  rg=7  THEN  a#=ki#: GOSUB  11730:p( 
1)=&DB  XOR (p*8) : GOTO  11310  ELSE  11290 

1 1025  'fr******************************* 

11026  '  Inter ruptrnodi  IM 

11027  1  ******************************** 
11030  1b=2:  p  <  1 )  =  &ED:  IF  op#="0"  THEN  p(2) 

=  8<46:  GOTO  11330 

11040  IF  op#="l"  THEN  p ( 2) =&56: GOTO  1133 
0 

11050  IF  op#  =  "2"  THEN  p (2) =&5E: GOTO  1133 
0  ELSE  11290 

11055  ' ******************  ************** 

1 1 056  ' Austauschbefehl e  EX 

11057  ' ******************************** 
11060  IF  ol#  =  " (SP) "  THEN  a#=o2#: GOSUB  11 
790  :IF  rg  =  2  THEN  p  ( 1 )  =  8<E3:  GOTO  11310 
11070  IF  op$="DE,HL"  THEN  p ( 1 ) =&EB: GOTO 
11330 

11080  IF  op*= "AF, AF ' "  THEN  p(l)=8:G0T0  1 
1330  ELSE  11290 

11085  '******************************** 

11086  'Arithmetisch-logische  Befehle 

1 1087  ********************************* 
11090  IF  bp= 18  OR  bp> 19  THEN  a#=op#:60T0 

11110 

11 100  IF  ko  =  0  THEN  11260  ELSE  IF  ol#<>"A 
"  THEN  11130  ELSE  a#=o2# 

11110  p= (bp-16) *8: GOSUB  11740:IF  rf  THEN 
p ( 1 ) = 1 28  OR  p  OR  rg: GOTO  11310 
11120  p(l)=p  OR  &C6 : GOSUB  11 730: GOTO  113 
30 

11130  a#=ol#: GOSUB  11790:IF  rg<>2  THEN  1 
1290 

11140  a#=o2#:G0SUB  11790: IF  rf=0  THEN  11 
290 

11150  IF  bp=  16  THEN  IF  rg=2  AND  ol#Oo2# 
THEN  11290  ELSE  p=9:G0T0  11180 
11160  p < 1 ) =&ED: 1b=2: IF  irf  THEN  11290 
11170  IF  bp=  17  THEN  p  =  ?<4A  ELSE  p=&42 
11180  p(lb)=p  OR ( rg* 1 6 ) : GOTO  11310 


11185  ********************************* 

11186  ' Rotations-  und  Schiebebefehle 

11187  '******************************** 
11190  lb  =  2:p(l)  =&CB: a#=op#: GOSUB  11740:1 
F  r  f  =  0  THEN  11290 

11200  p (2) = ( (bp-24) *8) OR  rg:GOTO  11310 

11205  ********************************* 

11206  'Bitbefehle  BIT/SET/RES 

11207  '******************************** 
11210  IF  ko=0  THEN  11260 

11220  lb  =  2:  p  ( 1 )  =  &CB:  a#=o2#: p=ASC  (op#  >  -48 
: GOSUB  11740 

11230  IF  p<0  OR  p>7  OR  LEN(ol#X>l  OR  rf 
=0  THEN  11290 

11240  p (2) = (64* (bp-31 ) ) OR (p*8) OR  rg: GOTO 
1 1310 

1 1 245  '******************************** 

11246  'Fehlermeldungen 

1 1247  1  ******************************** 
11250  PRINTSa,"'  missing" ; : z#=" " : GOTO  11 
300 

11260  PRINTffa, "Syntax  Error";:GOTO  11300 
11270  PRINTBa, "Distance  out  of  ranqe";:G 
OTO  11300 

11280  PRINTffa, "Operand  mi ssing" ; : GOTO  11 
300 

11290  PRINT#a,  "Irnproper  Argument"; 

11300  PRINT#a,"  in";n;z#: fz=fz+ 1 : SOUND  1 
,90, 30: GOTO  10190 

11305  '**  ********************  ********** 

11306  ’M-Code  poken  und  Ausgabe 

11307  ' ******************************** 
11310  IF  irf  THEN  1 b= 1 b+ 1 : FOR  i =1b  TO  1 
STEP  -l:p(i)=p(i-i)s  NEXT 

11320  IF  df  THEN  P (4) =p (3) : p <3) =dis: lb=1 
b+1 

11330  IF  a*(jtl)<>""  THEN  11260 
11340  PRINT«a,HEX» <zpc,4);u1*; 

11350  FOR  i = 1  TO  1 b: PRINTtta, HEX# (p ( i ) ,2) 

; : POKE  zpc+ i - 1 , p ( i ) : NEXT 

11360  PRINTtta, TAB ( 15) ; USING"####" ; n; 

11370  PRINT#a, TAB (20  > ; la#;TAB(26) ;bf#;TA 
B (32)  ;  op#; TAB (44) ; km# 

11380  zpc=zpc+1 b+ds: GOTO  10190 

1 1 385  '******************************** 

11386  'Programmende 

11387  ' ******************************** 
11390  PRINT#a:FOR  i=0  TO  f 1 p- 1 : PRINTtta, " 
Undefiniertes  Label  ";ult#(i>;"  in";CINT 
(ABS (uld ( i > -FIX (uld (i ))) *10000) : fz  =  fz+l : 
SOUND  1,9 0,30: NEXT 

11400  PRINTffa, "Programm:  ";na#;"  Start 
:  ?< "  ;  HEX#  ( zps ,  4 )  ;  "  Ende:  &"  ;  HEX#  (zpc- 1 
,4);"  Laenge:  ; HEX# (zpc-zps, 4) ; "  F 

ehler: " ; f z 

11410  PRINT:  PRINT"Label  t-abell  e:  " 

11420  FOR  i =0  TO  ltp-1: PRINT  HEX#(wlt(i) 

, 4) ; " = " ; 1 t# ( i ) , : NEXT 

11430  PRINT: PRINT: INPUT "2.  Durchlauf  {j/ 
n) :  ", a#:  IF  LOWER#  (a#)  =".i"  THEN  du=-l:GOT 
O  10170 

1 1 435  ********************************* 

1 1436  ' Aufzeichnung 

1 1 437  ********************************* 
11440  ERASE  1 t#, wl t, ul t#, ul d 

11450  INPUT" Aufzeichnung  ( j/n) : " , a#: IF  L 
OWER# ( a# ) < > " j "  THEN  END 

11460  INPUT" Als  <0>b_iektcode,  <B>asiclad 
er  oder  <Q>uellcode  : " , a#: a#=LOWER# (a#) 
11470  IF  a#= "o"  THEN  SAVE  na#+"-oc" , B, zp 
s, zpc-zps: GOTO  11450 

11480  IF  a#="q"  THEN  POKE  qpc,0:SAVE  na# 
+"-qc", A:POKE  qpc, lz: GOTO  11450 
11490  IF  a#<>"b"  THEN  11450 

1 1 495  '******************************** 

11496  'Datazeilen  erzeugen 

11497  ’******************************** 

i  11500  INPUT "Erste  Zeile  :",n:IF  n=0  THEN 
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r.=  1 0 

11510  INPUT " 2ei 1 enabstand  :",zasIF  za  =  0 
THEN  za= 1 0 

11520  ÜPENOUT  na4+"-b1" 

11530  z4=MID4  (STR*  (n>  ,2)  +"  MEMORY  St"+HEX 
4=  (zps-1,4)  sPRINT#9,z4:  PRINT  z$:n=n+za 
11540  z4=MID4  (STR4(r.)  ,2)  +"  FOR  adr=V+HE 
X4  (zps,  4)  +"  TO  &"  +HEX4  (zpc-  1,4)+":  READ  a 
4 : POKE  adr , VAL ( " +CHR4 ( 34 ) + " & " +CHR4 ( 34 ) + " 
+  a4> sIMEXT" 

11550  sa=zps: PRINT89, z4: PRINT  z4; 

11560  n=n+za: z4=MID4 (STR4 (n) , 2) +"  DATA  " 
11570  FOR  i=l  TO  8: IF  sa=zpc  THEN  11590 
11580  z4=z4+HEX4 (PEEK(sa) ,2) +" , ":sa=sa+l 
:  NEXT 

11590  z4=LEFT4 (z4, LEN (z4) -1 ) :PRINT#9,z4: 
PRINT : PRINT  z4;:IF  sa<zpc  THEN  11560 
11600  CLOSEOUT : GOTO  11450 

11605  ' * * * * * *  * * * ********************** * 

11606  '  SUB  Label  test. 

11607  1  * * * *  *  *  * *  *  *  *  * * ******************  * 
11610  i=ASC(a4> : i=i<65  OR  i>90:IF  i  THEN 

RETURN 

11620  a4=LEFT4 <a4, 6) : RETURN 

1 1 625  • *  ***************  *  **************  * 

11626  'SUB  Offset  fuer  rel .  Spruenge 

1 1 627  ' *************** *  * *  *  *  *  *  ********** 
11630  of =za-sa-2: IF  of>129  OR  of<-126  TH 
EN  11270 

11640  IF  of >=0  THEN  RETURN  ELSE  of=of+25 
6  s  RETURN 

1 1 645  1 ******************************** 

11646  'SUB  2  Byte-Wert-  ermitteln 

1 1647  ' ******************************** 
11650  GOSUB  1 1610s IF  i  THEN  11690 

11660  FOR  1=0  TO  ltp-l:IF  lt$<i>=a4  THEN 
w  =  wl  t.  ( i  >  s  GOTO  1 1 720  ELSE  NEXT 
11670  GOSUB  1 1740s IF  rf  THEN  11290  ELSE 
GOSUB  1 1790s IF  rf  THEN  11290 
11680  ul  t-4  (  f  lp)  =a4s  uld  (f  lp)  =  (zpc  +  lb-i  r  f  + 
n/10000) *( <bp=2  OR  bp=3) *2+ 1 ) s f lp=f lp+1 s 
w  =  Q  s  ul 4= " * " s GOTO  11720 

11690  w=VAL(a4):IF  ABS(w)>65535  THEN  112 
90 

11700  IF  w<0  THEN  w=w+65536 
11710  IF  w=0  THEN  i=ASC(a4>:IF  i<>38  AND 
i  048  THEN  11290 

11720  1b=1b+2sp(lb) = INT (w/256) sp(1b-l)=w 
-256*p  <  1b) s RETURN 

1 1 725  ************************  *  ******  *  * 

11726  'SUB  1  Byte-Wert  ermitteln 

1 1727  ' ******************************** 
11730  GOSUB  1 1650s IF  p(lb)MOD  255  THEN  1 
1290  ELSE  lb=lb-ls RETURN 

1 1 735  '******************************** 

11736  'SUB  Test  auf  Register 

1 1 737  '******************************** 
11740  rf=INSTR<rg4,LEFT4(a4+"  ",3)>srg= 
r f \3s IF  rg<8  THEN  RETURN 

11750  IF  INSTR MID4 (ki4, 3, 1) )=0  OR 
INSTR (op$, " (HL) " )  OR  irf  THEN  11290 
11760  di s= VAL ( MID4 ( ki 4, 3) ) 5 IF  dis>127  OR 
di s<- 128  THEN  11270 
11770  IF  dis<0  THEN  dis=dis+256 
11730  p ( 0 ) =&DD  OR (rg-8) *32: irf=-l:df=-ls 
rg  =  6s  RETURN 

1 1 785  1  ******************************** 

11786  'SUB  Test  auf  Registerpaar 

1 1 787  1  *******************************  * 

11790  rf =INSTR (dr4, LEFT4 (a4+"  ",3)):rg= 

rf \3s IF  r g < 4  THEN  RETURN 

11800  p ( 0) *&DD  OR ( rg-4 ) *32: irf=-l:rg=2sR 
ETURN 

1 1805  ' ******************************** 

11806  'SUB  Test  auf  Bedingung 

1 1807  '  ******************************** 

11810  r f =INSTR (co4, LEFT4 (a4+ "  ",3)):rg= 

rf\3s RETURN 


SCHLUSS  MIT  VE*  SEQUENTIELLEM 
DATEI! 

Relative  Dateiverwaltung  mit  DEISYSI 

DEISYS  verwaltet  Ihre  kompletten  Daten  und  ist  unabhängig  vom  freien 
Speicherplatz  Ihres  Rechners! 

Universelle  Dateiverwaltung  mit  frei  definierbarer  Bildschirmmaske  für 
CPC  464,664  und  6128! 

Leistungsmerkmale  in  Stichworten: 

Integrierter  Terminkalender 

-  nach  dem  Starten  des  Programmes  werden  automatisch  die  aktuellen 
Tagestermine  angezeigt 

-  Datenaufnahme  unabhängig  vom  freien  Speicherplatz 

-  relative  Datenstruktur 

-  frei  definierbare  Bildschirmmaske 

-  schnellstmögliche  Abarbeitungsgeschwindigkeit 
-deutscher  Zeichensatz,  auf  ASCII  umschaltbar 

-  max.  20  Datenfelder  pro  Datensatz 

-  diverse  Suchkriterien 

-  durchgehende  Menueführung,  dadurch: 

-  hoher  Bedienungskomfort 

DEISYS  gibt  es  auf  3"-  und  5  1/4"-Diskette  zum  Preis  von  198,-  DM 

VERIS 

Das  Datenbanksystem  für  den  modernen  Versicherungskaufmann! 
Verwaltet  Ihre  kompletten  Bestände  und  unterstützt  gezielte  Verkaufs¬ 
aktionen  (z.B:  Altersaktion)! 

Termlnkalonder  und  Datenbank  in  einem  Programm! 

-  frei  definierbare  Bildschirmmaske 

-  druckt  Bestände 

-  max.  20  Datenfelder  pro  Datensatz 

-  durchgehende  Menueführung 

VERIS  ist  auf  3"-  und  5  1/4"-Diskette  erhältlich.  Preis  348-  DM 
Deitext  Preis  auf  Anfrage 

Händleranfragen  erwünscht. 

EDV-Beratung  Worms 
Rheinbergstraße  14 
Postfach  280108 
6520  Worms  28 
'S*  06242/4597 


Die  Besten 


hren  CPC 


zum 

neue  "■™ 

I  Yie  Ar  KungFu,27.- 
Fighting  Warrior,  30.- 
Hacker,  35.- 
IA  View  to  a  Kill,  42.- 
Genesis  (Adv  Kit.),  30.- 
IThey  sold  a  Million 

1(6  Spiele),  38.- 
I  Hexenküche,  25.- 
ISpy  vs.  Spy ,  34.- 
Winter  Games,  35.- 
Star  Commando,  23.- 
Never  Ending  Story  38.- 


|Beis£leT 


Hits 


The  Hobbit,  52- 1 
Rocky  Horror  Show, 
Sorcery ,  30-1 
Robin  of  Sherwood,  30. 
Frank  Bruno 's  Boxing,  30. 
Exploding  Fist,  34- 1 
Jump  Jet,  38  -I 
House  of  Usher,  27- 
Ghostbusters,  35  -I 
Kaiser,  54 .-I 
Knight  Lore,  38-1 
und  viele  andere  mehr 


Sofort  bestellen:  089-939894 


Kostenlose  CPC-Liste  anfordern 


FUN-TASTIC 


g 


Der  VersandMarkt  für  ComputerSpiele 
TannhäU3erplatz  22/S,  8000  München  81 
Telefon  089-959894 
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Bericht . 
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Ferien  einmal  ganz  anders  - 
hätten  Sie  nicht  auch  mal  Lust 
dazu?  Die  nächsten  Ferien  stehen 
vor  der  Tür  und  wollen  natürlich 
möglichst  zur  Erholung  genutzt 
werden.  Was  spricht  eigentlich 
dagegen,  seine  wohlverdienten 
Ferien  einmal  aktiv  zu  verbrin¬ 
gen  und  mit  einem  Lern-  bzw. 

T  rainingsprogramm 
zu  verbinden? 


Die  nächsten 
Ferien  kommen 
ganz  bestimmt 


CRC  Computercamps  1986 


In  Zusammenarbeit  mit  der  Com- 
pu-Camp  GmbH  veranstaltet,  »Schnei¬ 
der  CPC  International«  in  diesem  Jahr 
das  Computercamp  Veltishof.  Das  von 
Pädagogen  ausgearbeitete  Ferienpro¬ 
gramm  bietet  die  ideale  Verbindung 
von  Computerkursen,  Sport  und  akti¬ 
ver  Freizeit.  Das  für  1986  vorbereitete 
Programm  vermittelt  vor  allem  Kin¬ 
dern  und  Jugendlichen  im  Alter  von  8  - 
14  und  von  14  -  20  Jahren  spielerisch 
praktische  Einblicke  in  die  Welt  des 
Computerns. 

Das  Kursprogramm  ist  so  vielseitig,  daß 
Einsteiger,  Fortgeschrittene  sowie  Pro¬ 
fis  zufrieden  gestellt  werden.  Dabei 
steht  jedem  Teilnehmer  ein  »eigenes« 
Gerät  samt  Peripherie  zur  Verfügung, 
die  Individualität  ist  also  gewährleistet. 


Was  bietet  das  CPC-Camp  Veltishof? 


Das  Ferienprogramm  gliedert  sich  in 
mehrere  Computer-Kurse  und  Spezial- 
Kurse,  die  durch  »klassische«  Frei¬ 
zeitaktivitäten  wie  etwa  Tennis,  Surfen 
etc.  ergänzt  werden.  Nachfolgend  die 
Aufstellung  aller  angebotenen  Kurse: 

1.  Basic  1: 

Hier  wird  Anfängern  ein  sicherer 
Einstieg  in  die  Programmiersprache 
Basic  angeboten.  Des  weiteren  werden 
Grundkenntnisse  über  Hard-  und 


Software  sowie  deren  Bedienung  ver¬ 
mittelt,  ohne  daß  Vorkenntnisse  mit¬ 
gebracht  werden  müssen. 

2.  Basic  2: 

Für  Fortgeschrittene  der  ideale  Kurs. 
Ziel  ist  es,  komplexe  Probleme  in 
Basic  zu  lösen  und  die  Möglichkeiten 
des  Computers  voll  auszuschöpfen. 

3.  Pascal: 

Eine  Einführung  in  diese  komplexe 
Programmiersprache  unter  Berück¬ 
sichtigung  der  Pascal-Versionen  Ox¬ 
ford,  UCSD,  Profi-  und  Turbo.  Beson¬ 
ders  geeignet  für  Gymnasiasten  und 
Studenten! 

4.  Maschinensprache 

Einführung  in  die  Z-80  Assembler¬ 
programmierung.  Nach  Abschluß 
dieses  Kurses  werden  Sie  in  der  Lage 
sein, erste  Programme  in  Maschinen¬ 
sprache  zu  schreiben.  Basic-Kennt- 
nisse  werden  allerdings  vorausgesetzt. 

5.  Hardwarebasteleien: 

In  diesem  Spezialkurs  gibt  es  alles, 
was  das  Bastlerherz  begehrt.  Ob  es 
um  die  technische  Erweiterung  der 
eigenen  Computeranlage  geht  oder 
wie  man  preiswerte  Peripherie  im 
Selbstbau  herstellt.  Dieser  Spezial¬ 
kurs  gibt  Aufschluß  über  diverse 
Hardwareerweiterungen.  Auch  der¬ 
jenige,  der  noch  keinen  Lötkolben  in 


der  Hand  hatte,  wird  hicrinteressante 
Erfahrungen  sammeln  können. 

6.  Profi-Anwendungen: 

Dieser  Kurs  ist  als  Ausblick  in  die 
Welt  der  Computerpraxis  gedacht. 

Professionelle  Anwendungen  wer¬ 
den  beleuchtet  und  eventuell  Berufs¬ 
perspektiven  aufgezeigt.  Natürlich 
stehen  klassische  Anwendungen  wie 
Textverarbeitung.  Kalkulation  und 
Dateiverwaltung  auch  auf  dem 
Programm. 

Jeder  Teilnehmer  erhält  während  des 
Campaufenthaltes  intensive  Betreuung 
durch  geschulte  Teams.  In  regelmäßi¬ 
gen  Abständen  wird  ein  Redaktions¬ 
mitglied  von  Schneider  CPC  Inter¬ 
national  den  Fragen  der  Lehrgangsteil¬ 
nehmer  Rede  und  Antwort  stehen. 


Freizeitgestaltung  im  Computercamp 
Veltishof: 


Das  Computercamp  Veltishof  liegt  mit¬ 
ten  im  Schwarzwald,  in  unmittelbarer 
Nähe  des  Tittisees.  Die  wunderschön 
gelegene  und  komfortabel  ausgestattete 
Jugendherberge  Veltishof  garantiert 
höchsten  Erholungswert.  Die  Teilneh¬ 
mer  wohnen  in  4-  und  6-Bett-Zimmern. 

Für  eine  aktive  Freizeitgestaltung 
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Bericht . . 


bieten  sich  zahlreiche  Einrichtungen 
und  Möglichkeiten  an. 

So  stehen  jedem  Teilnehmer  gratis  fol¬ 
gende  Einrichtungen  zur  Verfügung: 

Windsurfen,  Disco,  Unterhaltungs¬ 
spiele,  Ausflüge  und  Grillplatz. 

Für  wenig  Geld  gibt  es  außerdem 
weitere  Aktivitäten  wie  Minigolf,  Reiten, 
Fahrradverleih,  Schiffsrundfahrten, 
Segeln  und  vieles  mehr. 

Sie  sehen,  aktive  Freizeit  wird  in 
Veltishofen  nicht  nur  groß  geschrieben, 
sondern  auch  praktiziert.  »Lange¬ 
weile«  ist  ein  Fremdwort,  hier  kommt 
jeder  voll  auf  seine  Kosten. 

Im  Computercamp  Veltishof  erwartet 
jeden  Teilnehmer  die  ideale  Verbin¬ 
dung  von  Computer  und  Freizeit  mit 


vielen  interessanten  Überraschungen. 

Gestalten  Sie  Ihre  Ferien  zu  einem  ein¬ 
maligen  und  unvergeßlichen  Erlebnis 
im  Computercamp  Veltishof. 


Folgende  Termine  sind  für  das  Jahr 
1986  vorgemerkt: 

Ostern: 

08.03.-  15.03 
15.03.-22.03 
22.03.  -  29.03 
29.03.  -  05.04 
05.04.  -  12.04 

Sommer: 


05.07.-  12.07 
12.07.  -  19.07 
19.07.  -  26.07 
26.07.  -  02.08 
02.08.  -  09.08 
09.08.-  16.08 
16.08.  -  23.08 
23.08.  -  30.08 
30.08.  -  06.09 

Herbst: 

04.10.-  11.10 

11.10.-18.10 

18.10. -25.10 

25.10. -01.11 


Da  die  Teilnehmerzahl  in  den  einzel¬ 
nen  Kursen  aufgrund  der  zu  erwarten¬ 
den,  starken  Nachfrage  begrenzt  ist,  bit¬ 
ten  wir  um  schriftliche  Voranmeldung 
mit  untenstehendem  Coupon. 

Das  Computercamp  Veltishof  bietet 
individuelle  Betreuung,  entsprechend 
sind  auch  die  Computerkurse  ange¬ 
gliedert.  So  bauen  die  einzelnen  Kurse 
größtenteils  aufeinander  auf  und  kön¬ 
nen  dementsprechend  einzeln  oder  auf¬ 
einanderfolgend  belegt  werden. 


Die  Kosten  betragen  im  einzelnen! 

1  Woche 

650,-  DM 

2  Wochen 

1190,-  DM 

3  Wochen 

1710,-  DM 

4  Wochen 

2220,-  DM 

Diese  Preise  beinhalten  pro  Woche 
bzw.  Kurs  sieben  Übernachtungen  mit 
Vollpension  (Frühstück,  Mittag-  und 
Abendessen),  Unterrichtskosten  für 
den  gewählten  Kurs  (mind.  6  Tage  ä  3 
Stunden)  sowie  Freizeitbetreuung  und 
Benutzung  der  Gratis-Freizeiteinrich- 
tungen. 

Planen  Sie  Ihre  nächsten  Ferien  doch 
einmal  ganz  anders  -  Computer-Ferien 
in  Veltishof. 


21.06.-28.06 
28.06.  -  05.07 


CompuCamp-Computerferien.  Die  ideale  Verbindung 
von  Computing  und  Freizeit. 


Die  nächsten  Ferien.  Wäre  das  nicht  die  Gelegenheit,  spielerisch  in 
die  faszinierende  Welt  des  Computing  eingeführt  zu  werden?  Oder 
bereits  bestehendes  Wissen  zu  festigen  und  auszubauen? 

Wir  -  die  Computercamp-Spezialisten  von  CompuCamp  bieten  für 
alle  Kinder  und  Jugendlichen,  die  den  Anschluß  an  die  Entwicklungen 
der  Microelektronik  nicht  verpassen  wollen,  das  richtige  Ferien- 
„Programm”. 

Interessiert?  Mehr  Informationen  finden  Sie  in  unserem 
aktuellen  Prospekt. 


Es  werden  ausschließlich  Schneider  Computer  zur  Schulung  eingesetzt! 


Schneider-Computerferien  bei  CompuCamp 
-  da  ist  der  Erfolg  schon  programmiert. 


von  „Schneider  CRC  International”  empfohlen. 

Antwort-Coupon 

Bitte  senden  Sie  mir  weitere  Informationen  über  die 
Schneider  CPC  Computercamps  1986  in  Veltishof 
(Schwarzwald) 
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PLZ,  Ort 


Telefon 


besitze  Computer  Typ 


o  Anfänger 
O  Fortgeschrittener 
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o  leicht  Fortgeschrittener 
o  Könner 
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ABENTEUER  GERMANISCH 


Nachdem  die  Adventurespieler  hier  in  Deutschland  lange  Zeit  darauf  angewiesen  waren,  ihren  Spieltrieb  an  englischen  oder 
amerikanischen  Produkten  zu  stillen,  gibt  es  in  letzter  Zeit  immer  mehr  deutschsprachige  Produktionen.  Nun  ist  es  auch  jenen,  die 
der  englischen  Sprache  nicht  mächtig  sind,  möglich,  in  den  Genuß  eines  interessanten  und  gut  gemachten  Abenteuers  zu  kommen. 
Wir  haben  hier  drei  der  besten  und  unterhaltsamsten  Programme  zusammengetragen  und  untersucht. 


Nazca 

N ur  wer  sich  die  Mühe  macht  und  in  selte¬ 
nen,  alten  Antropologiebüchern  nach¬ 
schlägt,  wird  nach  einigem  Suchen  eine 
Notiz  über  den  Stamm  der  TACANA  fin¬ 
den.  Und  das,  was  die  Autoren  darin  über 
dieses  Volk  zu  berichten  wissen,  ist  nicht 
gerade  viel.  Aber  die  Wissenschaftler  sind 
sich  darin  einig,  daß  die  T acana  ein  golde¬ 
nes  Idol  anbeteten:  den  Gott  der  Tacana. 

Über  die  Stromschnellen  eines  unge- 
bändigten  Dschungelflusses  im  tiefsten 
südamerikanischen  Regenwald,  führt 
der  Weg  zu  jener  legendenumwobenen 
Ruinenstadt,  in  deren  Mauern  das 
längst  ausgestorbene  Volk  der  Tacana 
einst  lebte.  Es  ist  Ihnen  gelungen,  die  ge¬ 
naue  Lage  dieser  einst  blühenden 
Metropole  des  kulturell  hochstehenden 
Dschungelvolkes  in  Erfahrung  zu  brin¬ 
gen.  Da  Sie  archäologisch  wie  auch  an¬ 
tropologisch  recht  versiert  sind,  haben 
Sie  auch  schon  von  den  Sagen  und  Le¬ 
genden  über  den  zornigen  Gott  erfah¬ 
ren,  dem  dort  in  alter  Zeit  gehuldigt 
wurde.  Eine  goldene  Statue  sei,  von  den 
Tacana,  ihm  zu  Ehren  und  nach  seinem 
Abbild  erschaffen  worden.  Diesem  gol¬ 
denen  Idol  wurden  Dankesopfer  ge¬ 
bracht,  Menschenopfer.  Und  immer 
noch  soll  dieses  Kleinod  präkolumbia¬ 
nischer  Kunst  in  den  Trümmern  der 
Stadt  verborgen  sein.  Mutig,  und  nicht 
ohne  eine  gewisse  Ungeduld,  machen 
Sie  sich  auf  den  Weg,  um  das  zu  ver¬ 
suchen,  was  bisher  noch  niemandem 
gelang.  Diesen  Schatz  zu  finden  und  zu 
bergen.  Doch  noch  bevor  Sie  überhaupt 
an  den  Ruinen  angelangt  sind,  müssen 
Sie  erkennen,  daß  tödliche  Gefahren 
auf  Sie  lauern.  In  einer  verfallenen 
Hütte  im  Dschungel  finden  Sie  die  sterb¬ 
lichen  Überreste  eines  Abenteurers, 
dem  das,  was  Sie  sich  vorgenommen 
haben,  nicht  gelang. 

Immer  auf  der  Suche  nach  neuen  ergie¬ 
bigen  Themen  war  es  nur  eine  Frage  der 
Zeiüdaß  sich  die  Autoren  von  Ad- 
venturespielen  diesem  Genre  zu¬ 
wandten.  Gewiß  ist  Nazca  nicht  das  er¬ 
ste  Spiel,  das  auf  den  Spuren  von  In¬ 
diana  Jones  wandelt,  doch  in  dieser 
Form  ist  es  neuartig.  Muß  man  sich  in 
anderen  Adventures  mit  nicht  enden 
wollenden  Horden  von  unheimlichen 
Monstern,  lebenden  Skeletten  und  ähn¬ 
lichen  Lebewesen  herumschlagen  um 
ans  Ziel  zu  gelangen,  bewegt  sich  N azca 
in  völlig  natürlichem  Rahmen.  Das  be¬ 
deutet,  daß  alle  Hindernisse  und  Ge¬ 
fahren  mit  denen  Sie  auf  Ihrer  Suche 
konfrontiert  werden.  Ihnen,  falls  Sie 


sich  wirklich  einmal  in  einem  tropi¬ 
schen  Regenwald  auf  eine  solche  Reise 
begeben  sollten,  auch  wirklich  begegnen 
könnten.  Dadurch  hat  der  Spieler  einen 
großen  Vorteil.  Alle  Probleme  sind  im 
Rahmen  der  geltenden  Naturgesetze 
lösbar.  Dadurch  gewinnt  Nazca  unge¬ 
mein  an  Spielwitz,  denn  die  Abenteuer, 
die  man  auf  dem  Monitor  bestehen 
muß,  werden  ganz  einfach  erfahrbar. 
Bereits  nach  wenigen  Spielzügen  er¬ 
steht  ein  Bild  der  Hindernisse  und  Ge¬ 
fahren  in  der  Phantasie  des  Spielers. 
Das  Programm  baut  vor  dem  Spieler 
eine  sehr  einleuchtende  und  nachvoll¬ 
ziehbare  Handlung  auf,  die  von  einer 
interessanten  Grafik  unterstützt  wird. 
Außerdem  ist  in  der  Verpackung  ein 
Lösungscode  enthalten,  der  in  sehr  gut 
verschlüsselter  Form  den  kompletten 
Lösungsweg  enthält.  Ein  Programm 
also,  das  all  jenen  gefallen  wird,  die  der 
Schlachten  mit  überirdischen  Unhol¬ 
den  müde  sind  und  das  auch  denen  zu 
empfehlen  ist,  die  noch  nie  ein  Ad- 
venture  in  den  Händen  gehalten  ha¬ 
ben.  (HS) 


Der  Diamant  von 
Rabenfels 


Rabenfels,  ein  unheimliches,  altes  Ge¬ 
mäuer,  das  sich  auf  einem  schwarzen 
Felsen  erhebt,  ist  der  Angelpunkt  eines 
der  neuesten  deutschsprachigen  Aben¬ 
teuerspiele.  In  einer  märchenhaften 
Welt,  bevölkert  von  allerlei  mythischen 
Lebewesen,  gilt  es,  einen  fabelhaften 
Schatz  zu  finden,  eben  den  im  Titel  be¬ 
nannten  Diamanten.  Die  Suche  beginnt 
auf  einem  kleinen  Segelschiff,  fernab 
jeder  Küste.  Frohgemut  geht  Ihre  Reise 
voran,  bis  aus  einer,  wie  herbeigehext, 
auftauchenden  Nebelwand  ein  un¬ 
heimlicher  Zweimaster  erscheint.  Be¬ 
reits  dort  finden  Sie  die  ersten  wichtigen 
Gegenstände,  die  Sie  dabei  haben  müs¬ 
sen,  um  im  späteren  Spielverlauf  gegen 
alle  Gefahren  gerüstet  zu  sein.  Munter 


fabuliert  der  Autor  dieses  Adventures, 
Peter  Mengel,  sich  durch  alle  Bereiche 
unserer  heimatlichen  Sagen-  und  Mär¬ 
chenwelt. 

Von  Klabautermännern  und  Seeschlan¬ 
gen,  bis  hin  zu  einem  bösen  alten  Zau¬ 
berer  reicht  die  Palette  der  phantasti¬ 
schen  Wesen,  die  diese  Welt  bevölkern 
und  bemüht  sind,  Sie  an  Ihrer  Aufgabe 
scheitern  zu  lassen.  Die  Grafik  im 
»Diamanten  von  Rabenfels«  wird  stän¬ 
dig  nachgeladen,  ein  Vorgang,  der  von 
Disc  sehr  flott  vonstatten  geht.  Wie  sich 
dies  mit  der  Kassettenversion  verhält, 
können  wir  leider  nicht  beurteilen,  da 
uns  nur  die  Diseversion  zum  Testen 
vorlag.  Die  Grafiken  selbst  sind  sehr 
sauber  und  interessant  gestaltet  und  er¬ 
füllen  ihren  Zweck  vollauf.  Nur  der  Wort¬ 
schatz  des  Programms  ist  bescheiden 
und  stellenweise  ein  wenig  seltsam: 
"Betrete  Zweimaster"  hört  sich  doch 
sehr  unglücklich  an.  Trotz  der  kleinen 
Mängel,  die  »Der  Diamant  von  Raben¬ 
fels«  aufweist,  ist  es  doch  ein  gelunge¬ 
nes  Spiel  geworden.  Wir  sind  gespannt, 
welche  interessanten  Projekte  in  der 
Werkstatt  Mengel-Weeske  gerade  in 
Planung  und  Entwicklung  sind. 

(HS) 


Der  Blaue  Kristall 

ln  fernster  Zukunft  ist  der  Fortbestand 
der  menschlichen  Rasse  in  höchster 
Gefahr.  Unheimliche  Krankheiten,  die 
bisher  unbekannt  waren,  grassieren  un¬ 
ter  den  Menschen  und  fordern  viele  Op¬ 
fer.  Die  Pflanzenwelt  mutierte  und  aus 
unerfindlichen  Gründen  wuchert  ein 
todbringender  grüner  Teppich  überdas 
Land.  Angst  und  Schrecken  herrscht 
unter  der  bereits  stark  dezimierten 
Menschheit.  Es  scheint,  als  habe  sich 
die  Natur  gegen  den  Menschen  verschwo¬ 
ren  und  strebe  nun  danach,  ihn  end¬ 
gültig  vom  Antlitz  der  Erde  zu  tilgen. 
Eine  kleine  Gruppe  von  Überlebenden 
rettet  sich  auf  ein  abgeschiedenes  Ei¬ 
land  in  der  Sargasso-See,  auf  dem  das 
Leben  noch  ohne  Gefahren  und  Fähr¬ 
nisse  möglich  ist.  Dort  entdecken  die 
Flüchtlinge  die  Reste  einer  untergegan¬ 
genen  Kultur.  Auf  den  steinernen  Ta¬ 
feln  ist  eine  uralte  Prophezeiung  einge¬ 
meißelt,  die  von  einem  Blauen  Kristall 
kündet,  dessen  geheimnisvolle  Kraft 
die  Menschheit  vor  dem  Untergang  be¬ 
wahren  könnte.  Aber  der  einzige  An¬ 
haltspunkt  über  den  Platz,  an  dem  sich 
dieser  Kristall  befinden  soll,  ist  der  Hin¬ 
weis  auf  eine  unterirdische  Tempelan¬ 
lage.  Diese  Chance,  so  gering  sie  auch 
sei,  darf  natürlich  nicht  ungenutzt  blei- 
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ben.  Und  so  wird  der  Stärkste,  Mutigste 
und  Intelligenteste  ausgesucht.  Damit 
beginnt  eine  abenteuerliche  Odyssee 
über  und  unter  der  einsamen  Insel,  in 
den  Weiten  der  unergründlichen  Sar- 
gasso-See. 

Wie  die  beiden  anderen  hier  vorge¬ 
stellten  Adventures,  so  ist  auch  »Der 
Blaue  Kristall«  in  deutscher  Sprache 
gehalten  und  verfügt  über  Grafik. 
Nachdem  Rainbow  Arts  mit  einigen 
Arcade-Spielen  auf  den  Schneider¬ 


markt  gedrungen  ist,  debütieren  sie  hier 
mit  ihrem  ersten  Adventure.  Verpackt 
in  eine  Geschichte,  die  weder  ganz  SF 
noch  ganz  Fantasy  ist,  wird  hier  ein 
Spiel  angeboten,  das  dem  Spieler  einige 
interessante  Features  präsentiert.  So 
verfügt  das  Programm  in  einigen  der 
über  100  zu  erkundenden  Räume  über 
Soundeffekte.  Der  Wortschatz  ist  sehr 
umfangreich  und  ermöglicht  die  Ein¬ 
gabe  von  quasi  Sätzen  wie  etwa  "un¬ 
tersuche  den  Kiesel”.  »Der  Blaue  Kri¬ 
stall«  ist  zwar  ein  qualitativ  ausge¬ 
sprochen  gutes  Programm,  aber  es 
hapert  an  dem  Punkt,  an  dem  die  mei¬ 
sten  deutschen  Adventurespiele  erheb¬ 
liche  Mängel  aufweisen.  Die  Kon¬ 
struktion  einer  stimmigen  Handlung, 
die  es  fertig  bringt,  eine  echte  At¬ 
mosphäre  zu  erzeugen,  den  Spieler  zu 
fesseln  und  zu  faszinieren.  Aber,  was 
nicht  ist  kann  ja  noch  werden,  und  der 
eine  oder  andere  gute  Ansatzpunkt  ist 
schon  vorhanden.  Bleibt  nur  noch  zu 
sagen,  daß  »Der  Blaue  Kristall«  ein  in¬ 
teressantes  Abenteuerspiel  ist,  das  man 
ruhigen  Gewissens  empfehlen  kann. 

(HS) 

GEWINNEN  SIE  EIN 
ABENTEUER 

Gewiß  sind  Sie  beim  ersten  Durchblät¬ 
tern  dieser  Ausgabe  auf  unsere  Aktion 
»Software  des  Jahres«  aufmerksam  ge¬ 
worden.  Außer  den  interessanten  Prei¬ 
sen,  die  wir  auf  dieser  Seite  aufgelistet  ha¬ 
ben,  gibt  es  noch  etwas  zu  gewinnen.  Die 
Firma  Ariolasoft  stellte  uns  freundlicher¬ 
weise  fünf  Disketten  mit  ihrem  neuesten 
und  auf  diesen  Seiten  reviewten  Ad¬ 
venture  »Der  Blaue  Kristall«  zur  Verfü¬ 
gung.  Diese  zusätzlichen  Preise  werden 
unter  den  Teilnehmern  unserer  Software- 
Aktion  verlost. 

GAMERS  MESSAGE 

Ich  möchte  diesen  Zeilen  einen  kleinen 
Kommentar  zu  der  im  letzten  Heft  ver¬ 
öffentlichten  Lagekarte  von  Jet  Set 
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Abenteuer 


Willy  geben.  Wie  einige  unserer  Leser 
bedingt  richtig  erkannt  haben,  fehlen 
auf  diesem  Plan  einige  Räume.  Dies 
war  die  Karte  zum  Ur-Jet  Set  Willy.  Die 
auf  der  Karte  fehlenden  Räume  sind 
nur  in  der  neuen  Version  dieses  Spiel¬ 
hits  enthalten,  nämlich  im  sogenannten 
Jet  Set  Willy  II. 

Um  nun  gleich  in  unsere  Helpline  ein¬ 
zusteigen,  möchte  ich  als  erstes  Steve 
Ramsauer  bei  seinem  Night  Lore  Pro¬ 
blem  helfen.  Wenn  man  in  dem  Raum 
ist,  in  dem  sich  der  Zauberer  aufhält, 
sollte  man  auf  dessen  Kessel  achten. 
Genauer  gesagt,  auf  die  darüber  schwe¬ 
bende  Rauchfahne.  In  dieser  erschei¬ 
nen  nämlich  immer  wieder  die  Gegen¬ 
stände,  die  Sie  dem  Magier  als  nächstes 
in  den  Kessel  werfen  müssen. 

Von  Thorsten  Mertsching  erhielten  wir 
die  folgenden  interessanten  Tips  zu 
»Subsunk«  von  Firebird. 

1.  Um  den  Gegenstand  vom  Regal  zu 
nehmen,  muß  man  sich  erst  etwas  aus 
der  Küche  holen  und  dies  anziehen. 

2.  Der  Schachtel  (Case)  läßt  sich  am  be¬ 
sten  mit  einem  geladenen  Gewehr 
beikommen. 

3.  Mit  einer  Pille  aus  dem  Medizin¬ 
schrank  (Medecine  Cabinet)  und  ei¬ 
nem  Glas  Wasser  kann  man  seine 
Kopfschmerzen  behandeln. 

4.  Eine  Gummimatte  (Mat)  hilft  beim 
Auffangen  der  Pille. 

5.  Wenn  man  den  Gummisauger 
(Sucker)  richtig  an  dem  Besen 
(Broom)  anbringt,  hat  man  ein  neues 
Werkzeug,  mit  welchem  man  das 
Waschbecken  entstopfen  kann. 

6.  Den  Brief  (Note)  sollte  man  ruhig  wört¬ 
lich  nehmen. 

7.  Um  in  dem  Vorratsraum  bleiben  zu 
können,  ist  es  ratsam,  Parfüm  aufzu¬ 
tragen. 

8.  Der  geschmolzene  Yogourt  muß  mit 
den  Toastkrümeln  aus  der  Küche  in 
einem  Reagenzglas  vermengt  wer¬ 
den. 

9.  Um  die  verrostete  Luke  (Hatch)  öff¬ 
nen  zu  können,  muß  man  den  Inhalt 
einer  Batterie  verschütten. 

Diese  guten  Tips  werden  sicherlich  ei¬ 
nigen  Abenteurern  ein  ganzes  Stück 
weiterhelfen. 

Fantasia  Diamond  bereitete  Ralf  Ger- 
lach  arges  Kopfzerbrechen.  Aber  es 
scheint,  als  könnten  ihm  Siegfried 
Schmidts  Tips  an  den  kritischen  Stellen 
von  Nutzen  sein. 

1.  Den  Fluß  kann  man  vielleicht  gar 
nicht  überqueren,  aber:  Über  den 
‘Disused  Dirt  Track’  kommt  man 
zum  ‘Comfortable  Little  House'.  Das 
‘Manhole’  öffnet  der  Toy  Robot’,  den 
man  mit  der  Batterie  aus  dem  ‘Front 
Room’  belebt  hat. 

2.  Durch  das  ‘Manhole’  kommt  man  in 
ein  Höhlensystem,  in  dem  man  sich 
mit  den  verschiedenen  ‘Pixies’  ausein¬ 
andersetzen  muß.  Hierbei  ist  die 
‘Fishing  Rod'  hilfreich. 

3.  Um  hier  herauszukommen,  braucht 
man  den  ‘Small  Key’,  den  man  von 
dem  ‘friendly  Elf  bekommen  kann. 
Dieser  öffnet  eine  Deckentür  einer 
süd/östlichen  Höhle  des  Gängesy¬ 
stems. 


4.  Der  ‘Dark  Dingy  Cellar’,  in  den  man 
dann  herauskommt,  ist  nicht  so  aus¬ 
weglos  wie  es  anfangs  erscheint.  Der 
rettende  Tip:  Aladin  und  die  Wun¬ 
derlampe.  Von  dort  kommt  man  in 
die  ‘Fortress’,  wo  man  Boris  den 
‘Guardian’  und  die  Orchestermitglie¬ 
der  trifft. 

Aber  hier  ist  Stefan  dann  mit  seinem 
Latein  am  Ende.  Wie  öffnet  man  die 
‘Strong  Wooden  Chest’  im  ‘circular 
Room’,  wie  kommt  man  durch  die 
‘Brown  Door’  und  letztlich,  was  fehlt 
dem  ‘Conductor’  um  Musik  zu 
machen? 

Dem  ‘WARLORD’  von  Interceptor  ist 
Dennis  Plöger  zu  Leibe  gerückt  und  hat 
folgendes  in  Erfahrung  gebracht. 

1.  Im  Wasserbecken  sollte  man  schwim¬ 
men  und  an  einer  anderen  Stelle 
aus  dem  Wasser  steigen. 

2.  Am  See  sollte  man  schlafen. 

3.  Die  Menschen  im  Hillfort  benöti¬ 
gen  Salz. 

4.  In  Bridon  gilt  Eisen  als  Zahlungs¬ 
mittel. 

5.  Das  Seil  erst  losbinden,  wenn  der 
Ochse  tot  ist. 

6.  Wenn  Sie  den  Bären  angreifen  wol¬ 
len,  dann  sollten  Sie  etwas  dabei  ha¬ 
ben,  um  sich  verteidigen  zu  kön¬ 
nen. 

7.  Das  Mädchen  in  der  Hütte  ist  Mi¬ 
nerva.  Im  Sumpf  sollten  Sie  den 
Halsring  tragen. 

8.  Den  Wölfen  das  in  Bridon  gekaufte 
zuwerfen. 

9.  Durch  das  Feuer  kann  man  gehen, 
wenn  man  einen  Mantel  trägt. 

10.  Erst  das  Schwert  auf  die  Steinplatte 
legen,  bevor  Sie  weitergehen. 

11.  In  den  Bergen  müssen  Sie  den  Stab 
aus  Eichenholz  dabeihaben,  um  wei¬ 
terzukommen. 

12.  Jetzt  zurück  durch  den  Sumpf  gehen 
und  den  irgendwann  angreifenden 
Römer  ihrerseits  angreifen. 

13.  Den  zeltenden  Römer  suchen  und 
mit  dem  Seil  fangen. 

Wir,  von  der  CPC-Redaktion,  können  an 
dieser  Stelle  einige  Tips  zu  Robin  of 
Sherwood  beisteuern. 

1.  Um  aus  dem  Dungeon  zu  entkom¬ 
men,  müssen  Sie  zuerst  den  Wächter 
unschädlich  machen. 

2.  Das  Gitter,  das  den  Dungeon  sichert, 
genau  untersuchen. 

3.  Robin  kann  nur  über  die  Wehrgänge 
der  Burg  entkommen. 

4.  Wenn  Sie  im  Wald  sind  und  den  Fluß 
gefunden  haben,  suchen  Sie  nach 
dem  Wasserfall  und  untersuchen 
denselben  einmal  genauer. 

5.  Gregory,  dem  Steuereintreiber,  ist 
nur  beizukommen,  wenn  man  seiner 
sofort  habhaft  wird. 

Gerd  Köberich  hat  immer  noch  Pro¬ 
bleme  mit  den  Gremlins.  Ist  da  viel¬ 
leicht  jemand  der  ihm  helfen  kann? 
Hier,  am  Ende  dieser  ‘Gamers  Mes¬ 
sage’,  möchte  ich  mich  für  die  rege  Mit¬ 
arbeit  unserer  Leser  bedanken.  Immer 
weiter  so,  es  gibt  noch  jede  Menge  Ad¬ 
ventures,  die  ungelöst  sind  und  täglich 
kommen  neue  hinzu. 

Euer  Heinrich 


. CP/M 
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UmwandlungvonCP/M-Dateienlndas  AMSDOS-Binärformat 


”Wie  man  Nicht- ASCII-Dateien  unter 
Schneider-Basic  bearbeitet” 

Die  üblichen  Befehle  des  Schneider- 
Basic  zur  Dateiverarbeitung  (OPEN IN, 
OPENOUT,  INPUT,  PRINT  etc.)  sind 
in  erster  Linie  zur  Verarbeitung  von 
ASCII-Dateien  gedacht.  Manchmal 
möchte  man  jedoch  auch  Dateien  bear¬ 
beiten,  die  beliebige  binäre  Daten  ent¬ 
halten.  Das  können  zum  Beispiel  Maschi¬ 
nenprogramme  sein,  die  unter  CP/M  mit 
einem  Assembler  erstellt  worden  sind  und 
die  von  Basic  aus  mit  Hilfe  des  CALL- 
Befehls  aufgerufen  werden  sollen,  oder 
Dateien  mit  verschiebbarem  Code,  die 
man  in  ein  anderes  Linkerformat  umwan¬ 
deln  will.  Möglicherweise  handelt  es  sich 
auch  um  Dateien  mit  einem  speziellen 
Datenformat,  etwa  Datenbanken,  di¬ 
gitale  Meßdaten  oder  Graphikfiles.  Der 
vorliegende  Beitrag  entstand  aus  der  Not¬ 
wendigkeit,  eine  Graphikdatei  im  Tek- 
tonix-Format,  die  auf  einem  Supermini- 
Rechner  Prime  9955  erstellt  worden  und 
über  die  serielle  Schnittstelle  auf  den 
CPC  664  überspielt  worden  war,  auf  dem 
Schirm  des  Schneider  Computers 
darzustellen. 


Leseprobleme 


Wenn  man  eine  solche  Nicht-ASCII- 
Datei  mit  OPENIN  geöffnet  hat,  be¬ 
kommt  man  beim  Lesen  der  Daten  mit 
INPUT  oder  LINE  INPUT  gewaltige 
Probleme.  Anders  als  beispielsweise 
das  Basic  des  IBM  PC,  kennt  nämlich 
das  Schneider  Basic  keinen  Befehl,  mit 
dem  ein  einzelnes  Byte  aus  einer  Datei 
gelesen  werden  kann.  Da  das  Schneider 
Basic  nur  die  Datentypen  INTEGER- 
Zahl  (ganze  Zahl),  REAL-Zahl  (reelle 
Zahl)  und  STRING  (Zeichenfolge)  ent¬ 
hält,  können  nur  diese  Typen  mit  IN¬ 
PUT  eingelesen  werden.  Ganze  und 
reelle  Zahlen  scheiden  für  unseren 
Zweck  von  vornherein  aus,  da  mit  ih¬ 
nen  nur  ganz  bestimmte  Formate  (eben 
Zahlen  in  ASCII-Darstellung)  gelesen 
werden  können.  Bleiben  also  die 
Strings.  Mit  ihrer  Hilfe  lassen  sich  zwar 
im  Prinzip  beliebige  Bytes  darstellen; 
bei  INPUT  oder  LINE  INPUT  versucht 
BASIC  jedoch  immer,  die  Stringvaria¬ 
ble  bis  zum  nächsten  auftretenden 
Trennzeichen  (Komma,  Leertaste, 
ENTER  oder  Dateiende)  zu  füllen.  Da¬ 
her  werden  bestimmte  Zeichen  nicht  in 
die  Textvariable  übernommen,  son¬ 
dern  als  Trennzeichen  interpretiert  Ins¬ 
besondere  das  Auftreten  einer  Null  ist 
fatal:  sie  wird  als  absolutes  Dateiende 
angesehen,  so  daß  man  an  die  dahinter 
liegenden  Daten  nicht  mehr  heran¬ 
kommt.  Damit  wird  klar,  daß  diese 
Methode  nicht  geeignet  ist,  beliebige 
Daten  von  der  Floppy  zu  lesen. 

Nun  könnte  jemand  kommen  und  sa¬ 
gen:  "Halt!  Das  Schneider  Basic  bietet 
doch  die  Möglichkeit,  Binärdateien  in 
beliebige,  reservierte  Speicherbereiche 
zu  laden!  Alles  was  man  tun  muß,  ist  ei¬ 
nen  Speicherbereich  mit  MEMORY  zu 


reservieren  und  mit 

LOAD  <Dateiname>  ,B,... 

die  Binärdatei  in  diesen  Bereich  zu  la¬ 
den.  Dann  kann  man  sich  mit  Hilfe  von 
PEEK  in  aller  Seelenruhe  Zeichen  für 
Zeichen  der  Datei  aus  dem  Speicher 
herausholen  und  nach  Belieben  weiter 
verarbeiten.” 

Dieser  Gedanke  ist  im  Prinzip  hervor¬ 
ragend.  Doch  leider  haben  vor  seiner 
praktischen  Ausführung  die  AMSTRAD- 
Ingenieure  noch  ein  wenig  Schweiß  ge¬ 
setzt.  Davon  kann  man  sich  durch  ei¬ 
nen  kleinen  Versuch  sofort  überzeugen. 
Angenommen,  wir  wollen  die  auf  der 
Systemdiskette  vorhandene  Datei 
DDT.COM  mit  Hilfe  eines  Basic- 
Programms  untersuchen.  Dazu  tippen 
wir  folgende  Kommandos  ein: 

MEMORY  29999 
LOAD  "DDT.COM", 30000 

Das  ging  daneben.  Basic  meldet  näm¬ 
lich  einen  Syntax  Error.  Der  Grund  da¬ 
für  findet  sich  im  Handbuch  erst  nach 
längerem  Suchen  in  Kapitel  5  unter  der 
Rubrik  "AMSDOS-Vorspann".  Das 
AMSDOS-Betriebssystem  speichert 
nämlich  die  Dateien  mit  einem  Vor¬ 
spann,  aus  dem  der  Dateityp  "BASIC”, 
"PROTECTED  BASIC",  "BINARY” 
oder  "ASCII”  hervorgeht.  Alle  Dateien 
ohne  Vorspann  werden  als  ASCII- 
Dateien  angesehen.  Da  es  in  CP/M  ei¬ 
nen  solchen  Vorspann  nicht  gibt,  wer¬ 
den  alle  CP/M-Dateien  -  also  auch 
DDT.COM  -  wie  eine  ASCII-Datei  be¬ 
handelt.  Durch  Angabe  der  Lade¬ 
adresse  30000  in  unserem  LOAD- 
Kommando  haben  wir  ausdrücklich 
eine  Binärdatei  angefordert.  Deshalb 
überprüft  der  LOAD-Befehl  anhand 
des  Vorspanns,  ob  es  sich  tatsächlich 
um  eine  Binärdatei  handelt.  Im  Falle 
von  DDT.COM  fehlt  der  Vorspann, 
LOAD  »meint«,  es  handelt  sich  um  eine 
ASCII-Datei  und  meldet  deshalb  einen 
"Syntax  Error”.  (Genaugenommen 
handelt  es  sich  um  gar  keinen  Syntax- 
fehler  -  die  Syntax  des  LOAD-Befehls 
war  völlig  in  Ordnung  -  aber  man  woll¬ 
te  wohl  bei  AMSTRAD  für  diesen 
selteneren  Fehler  keine  extra  Fehler¬ 
meldung  spendieren). 

Wenn  es  uns  also  gelingt,  unsere  Binär¬ 
dateien  mit  dem  entsprechenden  Vor¬ 
spann  zu  versehen,  können  wir  auf 
diese  Weise  von  Basic  aus  an  ihren  In¬ 
halt  herankommen.  Und  darum  dreht 
es  sich  hauptsächlich  in  diesem  Bei¬ 
trag. 


Aufbau  des 
AMSDOS-Vorspanns 


Zunächst  ist  anzugeben,  wie  der  Vor¬ 
spann  überhaupt  aufgebaut  ist  In  Bild  1 
ist  das  entsprechende  Format,  soweit  es 
für  den  vorliegenden  Zweck  erforder¬ 
lich  ist  dargestellt.  Das  erste  Byte  (Byte 


Byte 

Ihex) 

00 

<1  Userr-uroner»  <8 

Name>  <3  Typ>  0000 

0  0  <1  Pi letyp>  0 
<38  Nul  lbyt»-s> 

0  <2  I.ad*adresse>  0  <2  Dateilingo 

<2  Dateilaenqe?  0 

<2  Prilfsurac:.  <59  Nul'.bytes> 

<Daten>  ... 

Bild  1  Format  des  AMSDOS-Dateivorspanns 
( Anzahl  der  Bytes-Bedeutung) 

Nr.  0)  gibt  die  CP/M-Usernummer  an, 
gefolgt  von  dem  Dateinamen  auf  weite¬ 
ren  11  Bytes  (ohne  Punkt,  nicht  be¬ 
nutzte  Zeichen  durch  "Leertaste”  er¬ 
setzt).  Es  schließen  sich  6  Null-Bytes  an. 
Darauf  folgen  in  Byte  12H  (hexadezi¬ 
mal)  der  Filetyp  (0=BASIC,  1=  PRO¬ 
TECTED  BASIC,  2=BINARY)  und 
zwei  weitere  Nullbytes.  Die  nächsten 
zwei  Bytes  enthalten  die  Adresse,  von 
der  die  Datei  ggf.  mit 

SAVE  <  Dateiname  >  ,B,  <  Adresse  >  .... 

gespeichert  worden  ist,  und  an  die  die 
Datei  wieder  geladen  wird,  wenn 
LOAD  ohne  Ladeadresse  aufgerufen 
wird.  Auf  ein  Null-Byte  folgt  nun  in 
zwei  Bytes  die  Länge  der  Datei  (in 
Bytes).  Es  schließen  sich  38  Null-Bytes 
an.  Die  Bytes  Nr.  40H  und  41H  bein¬ 
halten  noch  einmal  die  Dateilänge, 
gefolgt  von  einem  Null-Byte.  In  den 
nächsten  zwei  Bytes  ist  zur  Kontrolle 
die  Summe  aller  bisherigen  Vorspann¬ 
bytes  abgelegt.  Alle  weiteren  Bytes  incl. 
7FH  (Hex)  sind  unbenutzt.  Ab  80H 
schließen  sich  dann  die  eigentlichen 
Daten  an. 


Erzeugen  des  Vorspanns 


Um  eine  CP/M-Datei  in  eine  AMSDOS- 
Binärdatei  zu  verwandeln,  muß  also  ein 
Vorspann  entsprechend  Bild  1  davor¬ 
gesetzt  werden.  Dies  geschieht  natür¬ 
lich  am  besten  mit  Hilfe  eines  Pro¬ 
gramms.  Ein  entsprechendes  Listing 
zeigt  Bild  2. 

io  '*********************************** 


20'*  VORSPANN  * 
30  '*  * 
40  '*  Zur  Umwandlung  eines  CP/M-Files  * 
45  '*  in  eine  AMSDOS-Binaerdatei  * 
50  '*  * 
60  '*  (C)  Dr.  Dietmar  Schröder  (1985)  * 


70  ' *********************************** 

80  DEFINT  a-z 

85  ********  User  Numrer  *************** 
90  INPOT  "User  Nummer  ";a$ 

100  IF  a$=""  THEN  a=0  ELSE  a=VAL(a$) 

110  IF  a<0  OR  a>15  TUEN  PRINT  "Nunmer  zw 
ischen  0  und  15  einqeben  I"  :  GOTO  90 
120  vorsp$=CHR$(a) 

125  '******  Dateiname  ***************** 
130  INPUT  "Filename  filename? 

140  a$  =  filename? 

150  GOSUB  1000:  'check  valid  CP/M  name. 
nS  <-  name,  t$  <-  typ 

160  IF  n$=" "  THEN  PRINT  "Ungueltiger  Dat 
einame":  GOTO  130 

165  nl$  =  n$:  tl$  =  t$  :'Die  Bestandteil 
e  fuer  spaeter  aufheben. 

170  FC»  i=l  TO  8-LEN ( n$ ) 

180  nl$=nl$+"  " 

190  NEXT 

200  FOR  i=l  TO  3-LEN(t$) 

210  tl$=tl$+"  " 

220  NEXT 

230  vorsp$  =  vorsp$  +  nl$  +  tl$ 

240  ********  g  Nullen  ***************** 
250  nulls  =  6 


84  CPC  1  86 


-  kompatibel  zu  CP/M  2.2,  Schneider  Basic 
-voll  kompatibel  zu  Laufwerken  FDD  und  FDI 

-  eigenständiges  Bank-Select 

-  erschließt  die  Welt  der  CP/M-Software 

-  eingebauter  Bank-Manager 

-  einfache  Montage 

Preise:  Data  Media  Spelckererwelterung: 

Best.-Nr.  6174  64KB  Erweiterungsplatine, 
nicht  aufrüstbar 

Best.-Nr.  6170  64KB  Erweiterung  aufrüstbar 

BesL-Nr.  6171  128KB  Erweiterung  aufrüstbar 

Best.-Nr  6172  256KB  Erweiterung  aufrüstbar 

Best.-Nr  6173  512KB  Erweiterung  komplett 


128  -  DM 
HD,-  DM 
298.-  DM 
398  -  OM 
498,-  OM 


-  professionelles  Speichermedium  im  gängigen  5  1/4”- 
Format 

-optional  mit  2,  3  oder  4  Laufwerken  zu  je  780KB  pro 
Laufwerk 

-eigenständiges  FDOS-Betriebssystem  mit  zusätzlichen 
Befehlen 

-  wahlweise  40  oder  80  Tracks 
-CP/M  2.2  kompatibel 

-  eingebauter  Maschinensprache-Monitor  auf  Eprom 

-  72  Directory-Einträge  ä  20  Zeichen  Länge 
-eingebaute  RS-232-Schnittstelle 


-  eigener  Controller 

-  Slimline  Laufwerke  (Teac  2x80  Tracks) 

-  eingebautes  Netzteil 

-  hohe  Laufruhe 

-  veränderbare  Disc- Formate  zum  Lesen  von  Fremddisketten 

-  umfangreiches  deutsches  Handbuch 


Anz.  der  Laufw. 
2 

3 

4 


Speicherkapaz. 
1.6  MB 
2.4  MB 
3.2  MB 


Preis 

1598  -  DM 
2298  -  DM 
2998  -  DM 


PLATINENKIT  (DATA  MEDIA) 

Erstellt  Layout  von  elektrischen  Schaltungen.  Einfachste  Handhabung.  Eingabe  der  Bauteile  und 
Verbindungen  vom  User  Der  Computer  berechnet  und  zeichnet  die  korrekten  Leiterbahnführun¬ 
gen  Ausgabe  des  Platlnenplanes  sowie  der  Lötstopmaske  auf  Drucker. 

Cassette  Best-Nr.  140  Diskette  3"  Best.-Nr.  240  Diskette  SW  Best-Nr.  340 


189 -DM 


199,-  DM 


199- DM 


FOCUS  (DATA  MEDIA) 

Programm  zur  perspektivischen  Darstellung  von  3D-Graphlken.  Stellen  Sie  z.  B.  ein  Haus  dar 
und  verändern  Sie  durch  Eingabe  der  Winkel  die  Perspektive! 

Cassette  Best.-Nr.  138  Diskette  3"  Best -Nr.  238  Diskette  BW  Best-Nr.  338 


79-  DM 


89-  DM 


89-  DM 


TURBO  TAPE  (data  medla) 

Das  Programm  erhöht  die  Datenausgabe  zwischen  Rechner  und  Cassette  erheblich. 
Cassette  Best-Nr.  146 


29,-  DM 


ZEICHENGENERATOR  (data  media) 

Hllfsprogramm  zum  bUdschirmorientieiten  Definieren  von  eigenen  Zeichen.  Laden, 
Sichern  und  Ausgeben  von  definierten  Zeichen.  Besonders  geeignet  für  Adventures. 
Cassette  Best-Nr.  147  Diskette  3"  Best-Nr.  247  Diskette  5'/»"  Best.-Nr.  347 


49,-  DM 


59,-  DM 


59,-  DM 


ROUTINEN,  TIPS  UND  TRICKS  (data  media) 

Ca.  50  wichtige  Programmroutinen  für  Jeden  Programmierer,  wie  z.  B.  Sortierrou¬ 
tine,  Inkeyroutine,  Diskettenroutine  usw. 

Cassette  Best-Nr  151  Diskette  3"  Best-Nr  251  Diskette  51/*"  Best-Nr  351 


79-  DM 


89,-  DM 


89,-  DM 


VIDEOTHEK  (data  media) 

Archivprogramm  für  Video  und  Film.  Die  Angaben  umfassen:  Titel,  Spielzeit,  Rang¬ 
folge,  Regle,  Darsteller  usw. 

Cassette  Best.-Nr.  152  Diskette  3"  Best-Nr  252  Diskette  5 '/*"  Best.-Nr.  352 


59,-  DM 


69,-  DM 


69,-  DM 


GRAPHIC  DESIGNER  (data  media) 

Graphische  Darstellungen  wie  Balkendiagramm,  Kuchendiagramm,  Liniendiagramm, 
3D-Darstellung. 

Cassette  Best.-Nr.  153  Diskette  3"  Best.  Nr.  253  Diskette  5  W  Best.-Nr.  353 


59,-  DM 


69,-  DM 


69,-  DM 


KASSENBUCH  (DATA  MEDIA) 

Tageskassenbencht  mit  Einnahmen  und  Ausgaben,  Kassenbestand  bei  Oesehäftsschluß.  Entnah¬ 
men  sowie  Ausgabe  von  Buchungsbelegen. 

Cassette  Best-Nr.  139  Diskette  3"  BesL-Nr.  239  Diskette  BW  BesL-Nr.  339 


79,-  DM 


89,-  DM 


89,-  DM 


FAKTURA  (DATA  MEDIA) 

Schreibt  Rechnungen,  Mahnungen,  Lieferscheine,  Bestellungen,  Quittungen  und  kalkuliert  das 
Vertriebsprogramm  und  Verkaufspreise. 

Diskette  3"  BesL-Nr  236  Diskette  SW  Best-Nr.  336 


89,-  DM 


1,-DM 


GREDI  (DATA  MEDIA)  Hllfsprogramm  zur  Herstellung  von  Hlres-Graphlken 
Cassette  BesL-Nr.  142  Diskette  3"  Besl-Nr.  242  Diskette  BW  BesL-Nr  342 


49,-  DM 


59,-  DM 


59,-  DM 


ADRESSVERWALTUNG  (data  medla) 

Kommerzielle  Adreßverwaltung  zur  Verarbeitung  beliebig  vieler  Adressen.  Gespeichert  werden 
die  gesamten  Daten  einer  Person  oder  Firma  mit  Bemerkungen  Die  Ausgabe  erfolgt  entweder 
auf  dem  Bildschirm  oder  dem  Drucker  als  Adressenaufkleber  oder  Gesamtausdruck.  Schnitt¬ 
stelle  zu  DATA  MEDLA  FAKTURA  und  DATA  MEDIA  TEXTVERARBEITUNG. 

Cassette  Best-Nr.  138  Diskette  3"  Best-Nr.  23B  Diskette  SW  Best-Nr  33B 


67,-  DM 


79  -  DM 


79,-  DM 


MULnDArEI  (DATA  MEDIA)  Ein  universelles  DatelverwaltungBpro@-amm 
Cassette  Best  Nr.  141  Diskette  3"  Best- Nr  24 1  Diskette  SW  Best  Nr.  34 1 


89,-  DM 


99,-  DM 


DM 


TEXT  VERARBEITUNG  (data  media) 

Aufwendige  Textverarbeitung  mit  deutschem  Zeichensatz  und  mathematischen  8onderzetchen. 
Während  der  Texteingabe  kann  Jederzeit  ein  Hllfsmenue  aufgerufen  werden.  Eine  Schnittstelle 
zur  DATA  MEDIA  AD  RESS- VERWALTUNG  erleichtert  den  Umgang  mit  der  Textverarbeltung 
Cassette  Best  Nr  134  Diskette  3  '  Best.-Nr.  234  Diskette  BW  Best-Nr.  334 


79,-  DM 


89,-  DM 


89,-  DM 


Wie  bestellen? 

Die  Bestellkarte  Im  Innenteil  der  CPC  heraustrennen,  aus¬ 
füllen  und  an  DATA  MEDIA  senden.  Lieferung  erfolgt 
umgehend!  Zahlung  per  Vorkasse  oder  Nachnahme  zzgl. 
Porto-bzw.  Nachnah¬ 
megebühr.  (Nach¬ 
nahme  Ins  Ausland  ist 
nicht  möglich.) 


data  media  gmbh  MAILOKDER 


Weitere  Artikel  in  unserem  Gesamtkatalog.  Bitte  anfordern  (2,-  DM  für  Rückporto  beilegen). 
Data  Media  GmbH  -Mailorder-  Ruhrallee  55,  4600  Dortmund.  Tel.:  (02  31)  12  50  71-3 


Das  bringt  Ihren  Schneider  CPC  464/664  auf  Trab! 


Speichererweiterung 


5  1/4”-Laufwerk  FDD 
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. Hill 


260  GOSUB  1500 

270  vorspS  =  vorspS  +  nullS 

279  1  ********************************** 

280  '****  Filetyp  binaer  +  2  Nullen  *** 
290  vorsp$  =  vorspS  +  CHR$(2)  +  CHR$(0) 

+  CHR$(0) 

300  '****  Ladeadresse  +  1  Null  ******** 

310  INPUT  "Ladeadresse  ";a$ 

311  IF  a$=""  THEN  a=0  ELSE  a=VAL(a$) 

320  bytes2$  =  HEX$(a,4) 

330  GOSUB  1700  :  'in  lewer  und  higher  by 
te  zerlegen 

340  vorspS  =  vorspS  +  lbyteS  +  hbyteS  + 
CHR$ ( 0 ) 

350  '******  Dateilaenge  *************** 
360  INPUT  "dateilaenge  laenge 
370  bytes2$  =  HEX$ ( laenge , 4 ) 

380  GOSUB  1700 

390  vorspS  =  vorspS  +  lbyteS  +  hbyteS 

399  > ********************************** 

400  '*  38  Nullen  (einschl.  Startadresse 
410  nulls  =  38 

420  GOSUB  1500 

430  vorspS  =  vorspS  +  nullS 

439  ' ********************************** 

440  '*  Noch  einmal  Dateilaenge  +  1  Null 
450  vorspS  =  vorspS  +  lbyteS  +  hbyteS  + 
CHR$(0) 

460  '*******  Pruefsunme  *************** 
470  a  =  0 

480  FOR  i=l  TO  LEN( vorspS) 

490  a  =  a  +  ASC(MIDS( vorspS, i,l ) ) 

500  NEXT 

510  bytes2$  =  HEX$(a,4) 

520  GOSUB  1700 

530  vorspS  =  vorspS  +  lbyteS  +  hbyteS 

539  1  ********************************** 

540  ******  Regt  ^  Nullen  fuellen  **** 
550  nulls  =  128-LEN( vorspS) 

560  GOSUB  1500 

570  vorspS  =  vorspS  +  nullS 

580  '********  Vorspann  abspeichem  **** 

585  PRINT  "Vorspann  wird  generiert." 

590  OPENOOT  n$  +  ".vsp" 

600  PRINT  #9, vorspS; 

610  CIOSEOUT 

615  PRIOT  "Vorspann  in  der  Datei  "+n$+". 
VSP  abgespeichert." 

620  END 

1000  '******  a$  auf  gueltigen  ******* 

1001  '******  Dateinamen  pruefen  ******* 
1010  ’INP:  aS  -  Dateiname 

1020  'OUT:  n$  -  Name 
1030  '  tS  -  Typ 

1040  ’nS  leer  wenn  kein  gueltiger  Name 
1050  ON  ERROR  GOTO  1240 
1060  n$="":  t$="" 

1070  pp  =  INSTR(a$,".") 

1080  IF  pp>9  THEN  ERROR  100 
1090  IF  pp=0  THEN  pp=LEN(a$)+l  'Wenn  der 
Punkt  fehlt,  ist  er  hinter  aS 
1100  n$  =  LEFT$(aS,pp-l) 

1110  IF  pp<LEN(a$ )  THEN  t$  =  RIC3fT$(aS,L 
EN(aS)-pp) 

1120  IF  LEN(t$)>3  THEN  ERROR  100 
1130  n$=UPPER$(n$) 

1140  t$=UPPER$(tS) 

1150  FOR  i=l  TO  LEN(n$) 

1160  cval  =  ASC(MID$(nS,i) ) 


1170  IF  NOT  ( (cval>64  AND  cval<91)  OR  (c 
val>47  AND  cval<58))  THEN  ERROR  100 
1180  NEXT 

1190  FOR  i=l  TO  LEN(tS) 

1200  cval  =  ASC(MID$(tS,i) ) 

1210  IF  NOT  ( (cval>64  AND  cval<91)  OR  (c 

val>47  AND  cval<58))  THEN  ERRCR  100 

1220  NEXT 

1230  RETURN 

1240  'Error  Händler' 

1250  IF  ERR0100  THEN  ON  ERROR  GOTO  0 
1260  n$=" " 

1270  RESUME  1230 

1500  '*****  String  NULLS  mit  ******* 

1501  '*****  "NULLS"  Nullzeichen  ******* 

1502  '*****  erzeugen  ******* 

1510  ' INP:  nulls  -  Anzahl  Nullzeichen 
1520  'OUT:  nullS  -  String  mit  Nullen 
1530  null$="" 

1540  FOR  in=l  TO  nulls 
1550  null?  =  nullS  +  CHR$(0) 

1560  NEXT  in 
1570  RETURN 

1700  '*******  16  Bit  in  zwei  Byte  ***** 

1701  '*******  zerlegen  ***** 

1710  'INP:  bytes2$  -  16  Bit-Zahl 

1720  'OOT:  hbyteS, lbyteS  -  higher  byte  a 
nd  lower  byte 

1730  hbyteS  =  CHRS(VAL( "&"4MID$(bytes2$, 
1,2))) 

1740  lbyteS  =  CHR$(VAL( "&"+MID$(bytes2$, 
3,2))) 

1750  RETURN 


Bild  2  Listing  des  Vorspannprogramms 

Zunächst  wird  der  Vorspann  erst  ein¬ 
mal  zusammengestellt.  Dazu  dient  die 
Variable  "vorspS”.  Hierin  wird  nachein¬ 
ander  die  Bytefolge  entsprechend  Bild 
1  generiert.  Die  benötigten  Informatio¬ 
nen  CP/M-Usemummer,  Dateiname, 
Ladeadresse  und  Dateilänge,  muß  der 
Benutzer  eingeben.  Als  erstes  wird  er 
nach  der  Usernummer  gefragt.  Da  man 
in  der  Regel  nur  die  Nummer  0  benutzt, 
ist  das  Programm  so  geschrieben,  daß 
es  in  diesem  Fall  genügt,  lediglich  die 
ENTER-Taste  zu  drücken;  anderen¬ 
falls  ist  die  gewünschte  Nummer  einzu¬ 
geben  und  mit  ENTER  abzuschließen. 
Das  Programm  prüft  nun  die  Eingabe 
auf  den  von  CP/M  vorgegebenen  Werte¬ 
bereich  (es  sind  nur  Nummern  zwi¬ 
schen  0  und  15  erlaubt)  und  speichert 
sie  in  dem  ersten  Byte  des  Vorspann- 
Strings. 

Nun  ist  der  Dateiname  an  der  Reihe. 
Der  Begriff  »Dateiname«  wird  in  der 
CP/M-Literatur  häufig  doppeldeutig 
verwendet.  Entsprechend  der  Zusam¬ 
mensetzung  "<  Dateiname  >.<Datei¬ 


typ>”  steht  »Dateiname«  manchmal 
für  den  ersten  Teil  des  Namens  (vor 
dem  Punkt)  als  auch  für  die  gesamte 
Dateibezeichnung.  Die  jeweilige  Be¬ 
deutung  dürfte  aber  aus  dem  Zusam¬ 
menhang  hervorgehen. 

Der  Benutzer  wird  nun  vom  Programm 
aufgefordert,  den  Namen  einzugeben. 
Das  Unterprogramm  in  Zeile  1000  prüft 
daraufhin,  ob  der  Dateiname  den  CP/M- 
Regeln  entspricht  und  zerlegt  die 
Eingabe  in  die  Bestandteile  (Datei¬ 
name  und  Dateityp).  Anschließend 
wird  der  Dateiname  auf  acht  Zeichen 
und  der  Dateityp  auf  drei  Zeichen  mit 
Blanks  aufgefüllt  und  dem  Vorspann 
hinzugefügt. 

Es  folgen  jetzt  einige  Null-Bytes,  die  in 
der  erforderlichen  Anzahl  von  der  Sub¬ 
routine  in  Zeile  1500  bereitgestellt 
werden. 

Das  nächste  Byte  enthält  den  Filetyp 
(BASIC,  PROTECTED  BASIC,  BI¬ 
NARY);  in  unserem  Fall  also  eine  Zwei 
für  BINARY.  Nach  zwei  weiteren  Null- 
Bytes  schließt  sich  dann  die  Lade¬ 
adresse  an,  die  wieder  vom  Benutzer  des 
Programms  erfragt  wird.  Auch  hier 
kann  durch  einfaches  Drücken  von 
ENTER  eine  Null  erzeugt  werden,  falls 
keine  Ladeadresse  gewünscht  wird.  Die 
Routine  in  Zeile  1700  zerlegt  die  vom 
Benutzer  eingegebene  Zahl  (die  ja  im 
Schneider-Basic  eine  Länge  von  16  Bit 
besitzt),  in  zwei  8-Bit-Zahlen.  Diese 
werden  im  Hauptprogramm  dem  Vor¬ 
spann  hinzugefügt. 

Nach  einer  weiteren  Null  folgt  nun  die 
Dateilänge  in  Bytes,  die  ebenfalls  vom 
Benutzer  erfragt  wird.  Zur  Umwand¬ 
lung  der  eingegebenen  Zahl  in  zwei 
Bytes,  wird  wieder  die  Routine  in  Zeile 
1700  bemüht.  Anschließend  werden  die 
beiden  Bytes  an  den  bisherigen  Vor¬ 
spann  angehängt.  Falls  die  Dateilänge 
nicht  bekannt  ist,  kann  man  sie  sich  mit 
Hilfe  von  CAT  besorgen.  Die  hinter 
dem  Dateinamen  erscheinende  Zahl  ist 
dazu  mit  1024  zu  multiplizieren. 

Nun  kommen  38  Nullen,  noch  einmal 
die  Dateilänge,  die  wir  ja  von  vorhin 
noch  kennen,  und  noch  eine  Null. 
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CPC  464,664.6128 


-A  ,.«5^  DDI-1.  Vortex 
S  0  A 


Seikosha  SP  1000  CPC 
mit  Kabel  848-  DM 

Vortex  Speichererweiterung  SP  64 
<0,  (erweiterbar)  275,- DM 

^  mit  512  KB  459,- DM 

*  Eprom-Programmiergerät  aul 

.  <  Expansionsport,  brennt  2716  bis  27256!! 

Incl.  Software  für  CPC  464  398,-  DM 

und  viel,  viel  mehr  -  auch  im  Versand! 

Fragen  Sie  nach  unseren 
interessanten  Preisen!! 
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1.  Seepferdchen/Apfelmann 

mathematische  Chaosgratlk 
in  Maschinensprache  20, -DM 

2.  Multistift/Screen  Split 

27  Farben,  3  Modes  gleichzeitig 
das  älteste  Programm  dieser  Art 
letzt  bei  NO-DATA  20,-  DM 

3.  Polygon-  1 

Grafikbefehlserweiterung 

(kein  Maiprogramm)  bei.  Vielecke, 
Kreisbogen.  Ellipsen  in  Schräglage,  Flächen, 
füllen  und  vieles  mehr  20,-  DM 

4.  Holodisc  (In  Vorbereitung) 

alle  42  Spuren  lesen,  editieren,  formatieren 
kopieren  20,-  DM 

Alle  Programme  aul  Diskette  übertragbar 
Alle  Preise  ind.  Versand  und  Mehrwertsteuer  ™ 


Oa!  außergewöhnliche 
Programme 
^  für  den  CPC  464 

Sottwareautoren  gesucht 


-i 


-DATA 

Christine  Widdel 
Fraunhoferstraße  8 
3000  Hannover  1 
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Der  nächste  Abschnitt  des  Programms 
ermittelt  die  Prüfsumme  des  bisherigen 
Vorspanns.  Dazu  werden  alle  Bytes  des 
Strings  ”vorsp$"  nacheinander  als  Zah¬ 
len  aufgefaßt  und  addiert.  Die  sich  so  er¬ 
gebende  Zahl  ist  die  Prüfsumme,  die 
mit  Routine  1700  in  zwei  Bytes  transfor¬ 
miert  wird.  Diese  beiden  Bytes  werden 
dann  dem  Vorspann  zugefügt. 

Jetzt  brauchen  wir  nur  noch  den  String 
bis  zu  einer  Länge  von  128  (80H)  mit 
Nullen  aufzufüllen;  dann  ist  der  Vor¬ 
spann  gemäß  Bild  1  komplett.  Schließ¬ 
lich  wird  er  auf  der  Diskette  in  einer  ge¬ 
sonderten  Datei  abgespeichert;  der  Be¬ 
nutzererhält  hierüber  eine  Information 
auf  dem  Bildschirm.  Der  Name  der  Da¬ 
tei  wird  automatisch  aus  dem  ersten 
Teil  des  Namens  der  umzuwandelnden 
Datei  und  dem  Filetyp  ”.VSP”  gebildet; 
im  Fall  von  DDT.COM  also  beispiels¬ 
weise  ”DDT.VSP”. 


Davorgespannt 


Nun  können  wir  zur  Umwandlung  un¬ 
seres  CP/M-Files  in  eine  AMSDOS- 
Binärdatei  schreiten;  wir  müssen  nur 
noch  die  Vorspanndatei  vor  die  umzu¬ 
wandelnde  Datei  setzen.  Dazu  bedienen 
wir  uns  des  CP/M-Programmes  PIP, 
das  auf  der  Schneider-Systemdiskettc 
mitgeliefert  wird.  PIP  kann  nämlich 
weitaus  mehr,  als  in  dem  Systemhand¬ 
buch  angegeben  ist.  Folgende  Eingabe 
unter  CP/M  verknüpft  zwei  Quellfiles 
zu  einem  Zielfile: 

PIP  < Zielfile >  =  <QueIlfile  1>, 
<Quellfile2>  (ENTER) 

Dieses  CP/M-Kommando  bewirkt,  daß 
Quellfile  2  an  Quellfile  1  angehängt  und 
diese  Kombination  in  das  Zielfile  ge¬ 
schrieben  wird.  Dabei  darf  auch  der 
Name  des  Ziel  flies  mit  einem  der  Quell¬ 
files  übereinstimmen;  in  diesem  Fall 
wird  das  entsprechende  Quellfile  mit 
der  Kombination  der  Files  überschrie¬ 
ben.  Es  können  auch  mehr  als  zwei  Fi¬ 
les  auf  diese  Art  aneinander  gehängt 
werden,  indem  man  weitere  Dateina¬ 
men,  durch  Kommata  getrennt,  an  das 
Kommando  anfügt. 


Nun  kann  zur  Übung  das  DDT- 
Programm  in  ein  AMSDOS-Binärfile 
umgewandelt  werden.  Um  das  ursprüng¬ 
liche  DDT.COM  nicht  zu  überschrei¬ 
ben,  machen  wir  uns  erst  einmal  eine 
Kopie: 

PIP  DDT.BIN=DDT.COM 

Danach  gehen  wir  ins  Basic  und  lassen 
das  Vorspannprogramm  laufen;  dieses 
erzeugt  auf  der  Diskette  die  Vorspann¬ 
datei  DDT.VSP.  Die  Dateilänge  er¬ 
halten  wir  durch  Aufruf  des  Basic- 
Kommandos  CAT;  sie  beträgt  5K,  d.h. 
5270  Bytes.  Nun  gehen  wir  wieder  ins 
CP/M  und  geben 

PIP  DDT.BIN=DDT.VSP(0), 
DDT.BIN[OJ 

ein.  Die  Angabe  von  "O”  (object  file)  in 
eckigen  Klammern  unmittelbar  hinter 
dem  Dateinamen  ist  unbedingt  erfor¬ 
derlich.  Dadurch  wird  PIP  mitgeteilt, 
daß  es  sich  um  Binärfiles  handelt,  die 
vollständig  kopiert  werden  sollen;  sonst 
interpretiert  PIP  das  Auftreten  von 
IAH  (CNTRL-Z)  in  der  Datei  als  Datei¬ 
endezeichen,  wodurch  alle  Daten,  die 
hinter  diesem  Zeichen  stehen,  ver¬ 
loren  wären. 

Nun  hat  DDT.BIN  den  fehlenden  Vor¬ 
spann  erhalten.  Davon  können  wir  uns 
sofort  überzeugen.  Wir  reservieren  uns 
den  Speicherbereich  ab  Adresse  30000 
und  laden  dort  die  Datei 

MEMORY  29999 
LOAD  "DDT.BIN”, 30000 

Dieses  Mal  meldet  sich  Basic  mit 
READY  wieder,  die  Ladeoperation  ist 
also  bei  unserem  zweiten  Versuch  erfolg¬ 
reich  verlaufen.  Wir  können  nun  diese 
Binärdatei  mit  PEEK  und  POKE  nach 
Herzenslust  auslesen,  verarbeiten,  ver¬ 
ändern  und  wieder  mit  SAVE  abspei¬ 
chern. 


Ein  Bonbon  zum  Schluß 


Nun  wollen  wir  den  Komfort  unseres 
Vorspann-Programms  noch  weiter  stei- 


ii  ii  ii  ii  iiMiMiMiiiiitmiin  in  nt  nun  in  n  ii  im  ihm 

gern,  indem  wir  die  in  dem  vorigen  Ab¬ 
schnitt  beschriebene  Kopieroperation 
auch  noch  programmgesteuert  ablau¬ 
fen  lassen.  Gleichzeitig  ist  dies  ein  schö¬ 
nes  Beispiel  für  die  Verwendung  des 
CP/M-Programms  SUBMIT. 

Das  auf  der  CP/M-Systemdiskette  mit¬ 
gelieferte  Dienstprogramm  SUBMIT 
dient  dazu,  CP/M-Kommandos,  die 
man  normalerweise  auf  der  Tastatur 
eingibt,  automatisch  ablaufen  zu  las¬ 
sen.  Dazu  erstellt  man  eine  Textdatei, 
die  die  gewünschten  Kommandos  ent¬ 
hält.  Diese  sogenannte  SUBMIT-Datei 
muß  mit  dem  Dateityp  ”.SUB”  benannt 
sein  (z.B.  ’AUTO.SUB”).  Dann  muß 
man  nur  noch 

SUBMIT  AUTO 

eingeben,  und  die  in  der  Datei 
AUTO.SUB  gespeicherte  Befehlsfolge 
läuft  automatisch  ab. 


620  '******  SUBMIT-Datei  erzeugen  ***** 

630  OPENOUT  "vsp.sub" 

635  PRINT  #9, "PIP  "  +  N$  +  +  T$  +  "= 

"  +  N$  +  ".VSP[0]f"  +  NS  +  +  T$  +  "[ 

Oj" 

690  PRINT  #9, "ERA  "  +  n$  +  ".VSP" 

700  PRINT  #9,  "ERA  VSP.SUB" 

710  closeout 

715  PRINT  "SUBMIT-DATEI  ERZEUGT." 

716  PRINT  "Gleich  meldet  sich  CP/M.  Dann 

einfach  'SUBMIT  VSP'  eingeben!" 

717  AFTER  4/0.02  GOSUB  720 

719  GOTO  719 

720  ICPM 

950  EM) _ 

Bild  3  Listing  des  SUBMIT-Ergänzungsprogramms 

Bild  3  zeigt  die  entsprechende  Ergän¬ 
zung  des  Vorspannprogramms.  Es  brau¬ 
chen  nur  die  neuen  Zeilen  zusätzlich 
eingegeben  werden.  Dadurch  wird 
nach  dem  Abspeichem  des  Vorspanns 
automatisch  die  passende  SUBMIT- 
Datei  erzeugt  und  unter  dem  Namen 
"VSP.SUB”  auf  der  Diskette  gespei¬ 
chert.  H ierüber  erhält  der  Benutzer  eine 
Nachricht  auf  dem  Bildschirm.  Gleich¬ 
zeitig  wird  er  darauf  hingewiesen,  was 
er  als  nächstes  tun  muß,  um  die  Vor¬ 
spannaktion  zu  Ende  zu  bringen.  Nach 
vier  Sekunden  meldet  sich  dann  CP/M. 
Nun  braucht  er  nur  noch  "SUBMIT 
VSP”  einzugeben,  sich  gemütlich  zu¬ 
rückzulehnen  und  den  Rest  CP/M  zu 
überlassen.  Dietmar  Schröder 


CP/M 


Die  Erschließung  der 
peripheren  Welt 

mit  dem  Schneider  CPC 

•  High-Speed  zweifach  V-24  Schnittstelle 

•  kompakte  Bauweise 

•  300-19200  Baud  1125  kßaudl 

•  DC/DC  Wandler 

•  für  CPC,  464, 664, 6128 

•  mit  Gehäuse 

DM  248.- 

•  parallel  Interface  mit  48  Ein-Ausgängen 

•  mit  Gehäuse 

DM  219.- 

Gundermann  ß 
Mikroelektronik  ^  ^ 

Lessingstr.  7  •  6837  St.  Leon-Rot 
Tel.  06227/52394 


Telefon  (02  41)  3  49  62  IVUllIVKfVI  Fl 

Noppusstraße  19.  5100  Aachen  MICROCOMPUTER 


FÖr  Schneider  CPC  464,  664  und  6128 
(Kassette  oder  Diskette) 


CPCTERM 

Das  Terminal Programm  für  Ihren  Schneider  CPC. 

*  Komplett  mit  AnschluBkabel  (auch  für  2.  Rechner) 

*  Keine  weitere  Hardware  erforderlich  i 

*  300  baud 

*  Wortlänge,  Parität,  Stopbits,  Half /Fuil-Duplex, 
Zeichensatz,  XON/XOFF  frei  wählbar. 

*  Textspeicher,  Funktionstastenbelegung,  ... 


Einführungspreis  nur  99,--  DM  (später  129, —  DM) 


Passend  dazu:  Modem  dataphon  s  21  d  289, —  DM 
mit  CPCTERM  379,—  DM  (später  399,—  DM) 


CPCBUG 

der  Profimonitor  der  neuen  Leistungsklasse 
(Test  in  CPC  int.  9/85)  nur  59,—  DM 

Fordern  Sie  Informationen  ant 
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Geschichte  der  Mikroelektronik 


Nachdem  in  den  vergangenen  Monaten 
ausführlich  auf  die  Zusammensetzung 
und  Herstellung  von  Mikrochips  einge¬ 
gangen  wurde,  kommen  wir  noch  einmal 
auf  die  Anwendungsmöglichkeiten  und 
die  damit  verbundenen  Folgen  für  die 
Wirtschaft  und  Arbeit  zu  sprechen. 

In  welchem  Zusammenhang  steht  un¬ 
sere  Wirtschaft  und  die  fortschreitende 
Entwicklung  der  Mikroelektronik? 


Dazu  erinnern  wir  uns  des  Heimat¬ 
kundeunterrichts  (oft  auch  Gemein¬ 
schaftskunde  genannt)  der  Schule  und 
stellen  fest,  daß  die  Bundesrepublik 
eine  rohstoffarme,  exportorientierte 
und  vom  Außenhandel  abhängige  Indu¬ 
strienation  ist.  Um  aber  im  internationa¬ 
len  Wettbewerb  bestehen  zu  können,  ist 
die  Anwendung  von  Mikroelektronik 
in  vielen  Bereichen  unerläßlich.  U.a.  ge¬ 
hören  dazu  Kommunikationsdienste- 
und  Einrichtungen,  die  allesamt  elek¬ 
tronisch  sein  werden  und  Informatio¬ 
nen  in  Sprache,  Daten,  Texte  und 
Bilder  transportieren.  Und  wenn  wir 
von  wirtschaftlichen  Aspekten  sprechen, 
sind  selbstverständlich  auch  die  Aus¬ 
wirkungen  der  Mikroelektronik  auf  die 
Arbeitswelt  -  und  damit  der  Mensch  -  ge¬ 
meint.  Eines  jedoch  scheint  sicher: 
Ohne  Mikroelektronik  wird  die  Wettbe¬ 
werbsfähigkeit  geschwächt  und  Ar¬ 
beitsplätze  sind  auf  Dauer  gefährdet,  da 
heute  ein  wichtiger  Maßstab  für  die 
technische  Leistungsfähigkeit  eines 
Landes  der  jeweilige  Entwicklungs¬ 
stand  der  Mikroelektronik  ist. 

Unser  Schaubild  I  zeigt  sehr  deutlich 
den  Zusammenhang  zwischen  Wirt¬ 
schaftskonjunktur  und  den  Erfindun¬ 
gen  der  Industrieländer.  Die  Wirt¬ 
schaftsentwicklung  seit  ca.  1800  unter¬ 
streicht  den  Zusammenhang  zwischen 
der  wirtschaftlichen  Anwendung  tech¬ 
nischer  Erfindungen  und  den  langfri¬ 
stigen  Konjunkturverlauf  mehrerer  In¬ 


dustrienationen  der  westlichen  Welt. 
Grundlegende  technische  Erfindungen 
sorgen  für  einen  deutlichen  Konjunktur¬ 
aufschwung.  In  der  Vergangenheit  traf 
das  auf  Innovationen  wie  z.B.  die 
Dampfmaschine,  Elektrizität  oder  bei¬ 
spielsweise  das  Auto  zu,  während  sich 
heute  die  Gebiete  Mikroelektronik,  Te¬ 
lekommunikation  und  Raumfahrt  als 
positiv  für  die  soziale  und  wirtschaft¬ 
liche  Entwicklung  eines  Landes  erwei¬ 


sen.  Nachteil:  Einige  gesellschaftliche 
Gruppen  erfahren  besondere  Härte  bei 
der  Einführung  bzw.  Umstellung  auf 
Mikroelektronik.  Die  Folge  ist  weiter¬ 
hin  eine  völlige  Umgruppierung  und 
Neuorientierung  im  Bereich  der  Ar¬ 
beitswelt.  Dagegen  lebt  der  Großteil  al¬ 


ler  Menschen  eines  modernen  Indu¬ 
striestaates  im  Wohlstand  mit  dem  Ge¬ 
fühl  sozialer  Sicherheit,  dies  wäre  ohne 
den  technischen  Fortschritt  kaum  mög¬ 
lich  gewesen. 

Schaubild  II  zeigt  sehr  deutlich  die  Ent¬ 
wicklung  der  Arbeitsproduktion  einiger 
wichtiger  Industrieländer. 

Wie  bereits  erwähnt,  legt  man  heute  als 
Maß  für  die  Wettbewerbs-  und  Lei¬ 
stungsfähigkeit  einer  Industrienation 
den  Stand  der  Mikroelektronik  zu¬ 
grunde.  Die  wirtschaftliche  Bedeutung 
der  Mikroelektronik  läßt  sich  in  drei 
Bereiche  unterteilen. 

1.  Bauelemente  (besonders  integrierte 
Schaltungen)  der  Mikroelektronik.  Sie 
dienen  als  Grundlage  für  alle  weiteren 
Systeme  der  Informationsverarbei¬ 
tung. 

2.  Produkte,  die  Mikroelektronik  bein¬ 
halten  (z.B.  Computer,  Geräte  aus  der 
Unterhaltungselektronik  etc.). 

3.  Mit  Hilfe  der  Mikroelektronik  verbes¬ 
serte  Produkte  nichtelektronischer 
Branchen  (z.B.  Schreibmaschinen. 
Autos  etc.) 

Das  Schaubild  III  zeigt  die  bis  1985  er¬ 
wartete  Elektronik-Weltproduktion  von 
Bauelementen  und  integrierten  Schal¬ 
tungen.  Die  Anteile  der  einzelnen  Wirt¬ 
schaftsregionen  an  dieser  Produktion 
können  Sie  Bild  IV  entnehmen.  Von  der 
europäischen  Produktion  hat  die  Bun¬ 
desrepublik  einen  Anteil  von  ca.  30%, 
der  aufgrund  der  forcierten  Entwick¬ 
lung  in  den  USA  und  Japan  leicht  ab¬ 
nehmen  wird. 

Betrachtet  man  nur  die  Branchen  der 
größten  Mikroelektronik-Anwender  - 
Elektrotechnik.  Büro/Datentechnik. 


Elektronik  IVe/tprvdukt/on 


Elektronik-  k/eftprodukt/on  und  ihre  Auftef/ung 
rach  Md  schaf  tsregionem 


Schaubild  1 
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KFZ-Industrie,  Optik/Feinmechanik 
und  Maschinenbau  -  so  fällt  auf,  daß 
diese  Bereiche  rund  ein  Drittel  des  Ge¬ 
samtanteils  des  produzierenden  Ge¬ 
werbes  in  der  Bundesrepublik  aus¬ 
machen. 

Besonders  auffällig  ist  der  enorme  Ex¬ 
portüberschuß  dieser  Bereiche,  die  in 
der  Gesamtrechnung  die  negativen  Ex¬ 
porte  anderer  Industriezweige  wett 
machen  und  sogar  noch  für  ein  positi¬ 
ves  Gesamtergebnis  in  der  Außenhan¬ 
delsbilanz  sorgen.  Diese  Tatsache 
macht  einmal  mehr  deutlich,  wie 
wichtig  die  Mikroelektronik  für  die 
Wettbewerbsfähigkeit  der  Wirtschaft 
ist.  Da  bei  allen  Vorteilen  einer  neuen 
Technik  auch  eine  gewisse  Skepsis  vor¬ 
herrscht,  ist  nicht  neu  und  auch  nicht 
verwunderlich.  Solange  die  Folgen  ei¬ 
ner  Entwicklung  nicht  deutlich  ab¬ 
zusehen  sind,  wird  es  immer  wieder 
Kritik  und  Skepsis  hervorrufen.  Eine 
der  wichtigsten  Aufgaben  wird  es  also 
sein,  dem  Menschen  die  Angst  vor  dem 
Unbekannten  zu  nehmen  und  ihn  mit 
neuer  Technik  vertraut  zu  machen.  So 
werden  wir  u.a.  auch  auf  die  Aus¬ 
wirkungen  der  Mikroelektronik  auf  die 
Arbeitswelt  und  das  menschliche  Mit¬ 
einander  im  täglichen  Leben  eingehen 
und  versuchen,  ein  wenig  der  vorherr¬ 
schenden  Angst  zu  nehmen. 

U.a.  ist  hier  der  »Verbrauch«  von  Mi¬ 
kroelektronik  von  Interesse,  hier  kann 
man  auch  deutliche  Unterschiede  zu 


Schaubild  2 


Entwicklung  derArbefeproduktMidt 
th  der  verarbeitenden  Jnaustrie 
einiger  wichtiger  Jnaustrietönaer 

sehen  Know-How  bzw.  ihren  Rohstoff¬ 
und  Energiequellen  ordnet,  zeigt  sich 
folgendes  Bild:  In  Japan  und  West¬ 
europa  (ganz  besonders  in  der  Bun¬ 
desrepublik)  gibt  es  einerseits  knappe 
Energie-  und  Rohstoffvorräte,  anderer¬ 
seits  aber  eine  Fülle  von  technischem 
Know-How.  Daher  können  diese  Län¬ 
der  nur  durch  konsequente  Nutzung 
ihres  Know-Hows  in  hochwertigen  Pro¬ 
dukten  die  Mittel  zum  Erwerb  von  Roh¬ 
stoffen  und  Energieträgern  bereitstel¬ 
len.  Der  Export  technisch  hochwertiger 
Produkte  muß  also  den  Import  finan¬ 
zieren,  um  den  im  Vergleich  zu  anderen 
Ländern  hohen  Lebensstandard  zu 
erhalten. 


Schaubild  4 
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anderen  Industrienationen  feststellen. 
Berücksichtigen  wir  den  wertmäßigen 
Pro-Kopf-Verbrauch  an  integrierten 
Schaltungen  in  einem  Land,  so  liegt  Ja¬ 
pan  mit  etwa  44  -  DM  pro  Kopf  an  der 
Spitze.  An  zweiter  Stelle  liegen  die  USA 
(ca.  42-  DM)  gefolgt  von  der  Bundesre¬ 
publik  mit  ungefähr  23,-  DM  pro  Kopf. 
Alle  westeuropäischen  Länder  (incl. 
Bundesrepublik)  erreichen  gerade  ei¬ 
nen  Anteil  von  12,-  DM  pro  Kopf.  Diese 
Zahlen  belegen,  daß  Westeuropa  deut¬ 
lich  hinter  dem  führenden  Japan  und 
den  USA  zurückliegt. 

Wenn  man  nun  einige  wichtige  Länder¬ 
gruppen  der  Welt  nach  ihrem  techni- 


Länder  wie  z.B.  Indien,  Pakistan  oder 
die  zentralafrikanischen  Staaten  haben 
weder  Rohstoff-  und  Energievorkom¬ 
men  noch  technisches  Know-How,  ent¬ 
sprechend  gering  verhält  sich  dann 
auch  der  Lebensstandard. 

Dagegen  erwerben  sich  die  rohstoff¬ 
reichen  Länder,  wie  z.B.  die  Ölförder¬ 
staaten,  mit  dem  Export  ihrer  Energie¬ 
vorräte  das  technische  Know-How  für 
ihren  wirtschaftlichen  Aufbau. 

Anhand  dieser  Zahlen  wird  sehr  deut¬ 
lich,  wie  wichtig  die  Mikroelektronik 
für  die  Wirtschaft  einer  Nation  und  da¬ 
mit  für  die  Menschen  geworden  ist. 

(SR) 


DIE  CPC  SOFTPARADE 

DATENREM  2.0  die  Dateiverwaltung  für  fast  alle 
Anwendungen  durch  flexible  Ein-  und  Ausgabe¬ 
masken. 

D  78-  C  68- DM 

FAKTUREN  Rechnungen  mit  System  und  indivi¬ 
duellen  Eingabemöglichkeiten. 

D  68-  C  58,-  DM 

BANKCONP  den  Zinsen  auf  der  Spur,  Hypothe¬ 
ken,  Darlehen,  Sparen  etc. 

D  38,-  C  28,- DM 

FIBUCOMP  plus  komfortable  Einnahmen-Ausga- 
ben  Buchführung  mit  40  definierbaren  Konten, 
99999  Buchungen  und  Bilanzausdruck. 

C  89,-  C  78,- DM 


ETATGRAF  Ausgabenverwaltung  mit  Balken- 
und  Kurvengrafik.  Auch  ideal  als  Haushaltsbuch¬ 
führung. 


D  58- 

C 

48- 

DM 

Weitere  Programme: 

LAG  DAT  Lagerdatei  D  68  — 

C 

58,- 

DM 

FAKTUCOMP  Rechnung + Lager 

D 

98- 

DM 

TEXTCOMPfür  FX80 

D 

78- 

DM 

PCM  Entscheidungshilfe 

C 

28- 

DM 

VOKABI  Vokabeltrainer 

C 

48- 

DM 

MATHE  Grundrechnen 

C 

18- 

DM 

BIORHYTHMUS  Kurven 

C 

18,- 

DM 

Weitere  lafa  in  unserer  CPC-Usla 


Elfriede  VAN  DER  ZALM-SOFTWARE 
Programm  Entwicklung  &  Vertrieb 
Schieferstätte,  2949  Wangerland  3 


Eprommer 
^  Schneider 
\  CPC  464/664 

'  Universeller  EPROM-Programmer  4003 

■  Programmiert  all«  gängigen  EPROM-Typen  (iß  2716,-32. 
-64,-128,2508,-16,-32,-64  .)  ■  Voll  menügasteuerte  Soft¬ 
ware  aul  Kassette  •  Kein  Schalten,  Stecken  oder  Loten  nötig  ■ 
Programmier  Spannung  wird  im  Cerit  eriaugt  ■  Verbindung  zum 
CPC  über  Flachbandkabel  und  Interface-Karte  ■  Gleichzeitiger 
AnseMuR  der  Floppy  möglich  ■  Rote  und  grüne  Leuchtdiode  zur 
Betriebs-Arl-Anzeige  ■  Kompl  mit  28  poligem  Tealool-Sockel 

■  Ferliggerkt  DM  289.S0  ■  Bausatz  mit  Anleitung  DM  239,-  ■ 

EPR0M 
Karte 
KByte 

Die  ideale  Ergänzung  für  jeden  CPC 

■  Wahlweise  bestückbar  mit  2-64  KByte  EPROM-Kepeiittl  ■ 
Arbeitet  mit  den  EPROM-Typen  2716,-32,-64,-128  ■  Durchge- 
lührter  Erwetlerungsbus  (  Floppy  kompelibel  )  ■  Aulosterl  von 
BASIC-  und/oder  Assembler-Progremmen  ■  Komplett  mit  um- 
(engreichar  und  komforlebler  Sollwtre  ■  GleichermeRen  für 
Profis  und  Emsteiger  geeignet  ■ 

■  Fertiggeret  DM  249,50  ■  Beusatz  mit  Anleitung  DM  219,50  ■ 

Drucker  für  alle  CPC 

EEDY  100-80  SPEEDY  100-80  SPEDDY 100-80  SP 

■  100  Zeichen  pro  Sekunde  schnell  ■  FX80  kompatibel  ■  Bis  zu 
142  Zeichen  pro  Zeile  •  Optionaler  Druckerpuffer  ■  Graiik- 
fihig  ■  Kam  doppelter  Zeilanvorschub  ■  Direkt  anschluRlihig  ■ 
Internationale  Zaichensitze  ■  Gutas  Preis-Leistungsaerhlllms 

■  Kompl  mit  deulscktm  und  anglischem  Handbuch  DM  739,-  ■ 

Druckerkabel  cpc  464/664  dm  35,-  ■  cpc  6i?e  dm  45.- 

Preise  mkl  Mehrwertsteuer  Alle  Artikel  eb  Leger  lieferbar 

DOBBERTlfl 

MDU/TRIE-ELEKTROniK 

Brahmsstrifte  9,  6835  Brühl,  Tel  (06202)  71417 
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S.J.  Wainwright 
Von  Basic  zu  Pascal 
MVG  Moderne 
Verlagsgesellschaft 
75  Seiten 

ISBN  3-478-09300-7 
Preis:  24,80 


Pascal  ist  eine  höhere  Pro¬ 
grammiersprache,  die  auch 
auf  Rechnern  wie  dem  CPC 
immer  mehr  zum  Tragen 
kommt.  Im  Gegensatz  zu 
Basic  zeichnet  sich  Pascal 
durch  hohe  Strukturierung 
aus.  Dieses  Buch  führt  in  die 
Anwendung  beider  Sprachen 
ein  und  gibt  eine  direkte  Be¬ 
fehlsübersicht  in  paralleler 
Gegenüberstellung.  Der  An¬ 
wender  lernt  die  Unter¬ 
schiede  beider  Dialekte  ken¬ 
nen  und  ist  in  der  Lage,  einen 
problemlosen  Übergang  zu 
Pascal  zu  finden. 

Im  einzelnen  werden  z.B. 
Sortierroutinen  in  Pascal 
und  Basic  abgedruckt,  der 
Anwender  kann  Unter¬ 
schiede  sehr  schnell  loka¬ 
lisieren  und  umsetzen. 

Hegner 

Schneider  CPC  Grafik 
IWT  Verlag  1985 
293  Seiten 
ISBN  3-88322-147-3 
’reis:  48,-  DM 

I  Hegner 

Schneider  CPC 


Grafik 


Allen  Grafikfreunden  und  de¬ 
nen,  die  es  noch  werden  wol¬ 
len,  kann  dieses  Buch  unein¬ 
geschränkt  empfohlen  wer¬ 
den.  Ob  als  Lernbuch  oder 
als  Nachschlagewerk  -  selten 
lag  in  unserer  Redaktion  ein 
so  gutes  Buch  vor.  Gut  vor  al¬ 
lem  deshalb,  weil  es  dem  Ka¬ 
pitel  Grafik  bis  ins  Detail 
folgt  und  somit  für  Einsteiger 
das  ideale,  für  den  Fortge¬ 
schrittenen  ein  sicheres  Nach¬ 
schlagewerk  ist.  Angefangen 
von  den  Befehlen  der  Bild¬ 
schirmsteuerung  bis  hin  zu 
dreidimensionalen  Mehrfarb¬ 
grafiken  ist  so  ziemlich  alles 
enthalten,  was  von  Basic  aus 
an  Grafik  dargestellt  werden 
kann.  Wie  bei  IWT  üblich, 
gibt  es  alle  Programme  auf 
Diskette,  dort  ist  dann  zu¬ 
sätzlich  noch  ein  Hardcopy- 
Programm  enthalten. 

Winkler 

Das  Schneider  CPC 
6128/664  Praxisbuch 
Signum  Medien  Verlag  1985 
240  Seiten 
ISBN  3-924767-06-8 
Preis:  29,80  DM 
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Dieses  Buch  richtet  sich  vor 
allem  an  Einsteiger  und  Um¬ 
steiger  vom  464  auf  die  6128/ 
664-Computer,  doch  sind  ei¬ 
nige  Passagen  durchaus 
auch  für  Fortgeschrittene 
interessant. 

Im  allgemeinen  Teil  wer¬ 
den  zunächst  die  Computer 
vorgestellt  und  Unterschie¬ 
de  zwischen  beiden  Rech¬ 
nern  aufgezeigt.  Einen  gro¬ 
ßen  Schwerpunkt  nehmen 
die  CP/M-Versionen  2.2  und 
3.0  ein;  hier  sind  einige 
wichtige  Dinge  zu  erfahren. 
Darüber  hinaus  wird  das  Be¬ 
triebssystem  AMSDOS  ein¬ 
gehend  erläutert,  der  Leser 
erfährt  die  Grundlagen  des 
Locomotive  Basic  der  Ver¬ 
sion  1.1.  Wer  Programmli- 
stings  in  diesem  Buch  er¬ 


wartet,  der  wird  allerdings 
enttäuscht.  Vielmehr  erhält 
der  Anwender  eine  Ar¬ 
beitshilfe  und  Ergänzung 
zum  Handbuch,  die  den  Um¬ 
gang  mit  den  CPC  6128/664 
erleichtern.  U.a.  findet  der 
Leser  Marktübersichten  von 
Anwenderprogrammen  so¬ 
wie  Beschreibungen  zur  viel¬ 
fältigen  Peripherie,  die  aller¬ 
dings  zum  großen  Teil  un¬ 
vollständig  sind. 

Straush 

CPC  464  -  Programmieren 
in  Maschinensprache 
Markt  +  Technik 
Verlag  1985 
276  Seiten 
ISBN  3-89090-166-2 
Preis:  46,-  DM 


Programmieren  bi 
Mosdiinenspradie 


Für  viele  ist  die  Maschinen¬ 
sprache  noch  immer  ein 
Buch  mit  sieben  Siegeln. 
Dieses  Maschinensprache- 
Buch  richtet  sich  ganz  spe¬ 
ziell  an  die  Besitzer  des  CPC 
464  und  gibt  eine  Einführung 
in  diese  komplexe  Program¬ 
miersprache.  Nach  allgemei¬ 
nen  Erläuterungen  wie  Hex- 
Dual-Umrechnungen,  ASCII- 
Code  und  Aufbau  des  CPC 
geht  es  dann  über  den  Z-80 
Befehlssatz  bis  hin  zu  den  er¬ 
sten  Programmbeispielen  in 
Maschinensprache.  U.a.  fin¬ 
det  man  an  fertigen  Pro¬ 
grammen  einen  Disassem¬ 
bler  und  einen  Datagenerator. 
Mit  diesem  Buch  erhält  der 
Lesereinen  kleinen  Einblick 
in  die  Welt  der  MC-Program- 
mierung,  weiterführende  Li¬ 
teratur  ist  jedoch  unbedingt 
erforderlich. 

Thoma 

C  PC-464/ 664-Praxis 
Hüthig  Verlag  1985 
188  Seiten 

ISBN  3-7785-1149-1 
Preis:  34,-  DM 

Der  erste  von  insgesamt  zwei 


Bänden  beschäftigt  sich 
hauptsächlich  mit  dem  The¬ 
ma  Grafik.  Festzustellen  ist 
ein  starker  Praxisbezug  der 
Programme,  die  zudem  sehr 
eingehend  erläutert  werden. 
Der  Anwender  findet  u.a. 


Programme  wie  3D-Plot,  Dia¬ 
gramm,  Analog-Uhr  etc.,  die 
auch  an  eigene  Wünsche  an¬ 
gepaßt  werden  können.  Ein 
abgedrucktes  CAD-Programm 
ermöglicht  das  Erstellen  elek¬ 
tronischer  Zeichnungen  und 
zeigt  eindrucksvoll  die  grafi¬ 
schen  Fähigkeiten  aller  CPC 
Computer.  Ein  Kapitel  be¬ 
schäftigt  sich  mit  der  Centro- 
nics-Schnittstelle  und  ihren 
Eigenheiten,  selbst  Hardcopy- 
Programme  finden  sich  hier 
wieder. 

Weitere  Themen  aus  dem  In¬ 
halt  sind  die  Bedienung  von 
Diskette  und  Kassette  sowie 
die  Interruptbehandlung. 
Damit  stellt  dieses  Buch  für 
den  Anwender  eine  ernst¬ 
hafte  Arbeitsgrundlage  dar 
und  bietet  zudem  interes¬ 
sante  Programme  für  viele 
Bereiche. 


Bachmann/Rösner 
Grafik  auf  dem  CPC  464 
Westermann 
Schulbuchverlag  1985, 
191  Seiten 

ISBN  3-14-138818-0 
Preis:  29,80  DM 
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Dieses  Buch  hilft  dem  An¬ 
wender,  Problemstellungen 
in  Grafik  umzusetzen. 
Hauptsächlich  geht  es  dabei 
um  mathematische  Themen 
wie  Funktionsdarstellungen, 
Parameterfunktionen  etc.  Die 
Dokumentation  ist  leicht  ver¬ 
ständlich,  es  werden  keiner¬ 
lei  Programmierkenntnisse 
vorausgesetzt  Zahlreiche  Pro¬ 
grammbeispiele  verdeutlichen 
zudem  die  behandelten  The¬ 
men.  Sehr  interessant  ist  das 
Kapitel  »3D-Grafik«  in  dem 
u.a.  ein  Mini-CAD-Programm 
sowie  eine  Hardcopy-Routine 
enthalten  ist. 

Darüber  hinaus  stellt  der  Ver¬ 
lag  alle  Programme  auf  einer 
Diskette  zur  Verfügung. 

Sacht 

Basic  für  Fortgeschrittene 
Humboldt  Taschenbuch¬ 
verlag  1984 
189  Seiten 

ISBN  3-581-66496-8 
Preis:  8,80  DM 


WMEYER/K.  SCHACHT 

bäsic, 

Das  große  BASIC- 
Lernbuch- BASIC 

lernen,  verstehen, 

anwenden  aut  dem 

Personalcomputer 

A 


Dieses  Taschenbuch  erklärt, 
wie  in  Basic  spezielle  An¬ 
wenderprogramme  für  Heim 
und  Beruf  erstellt  werden. 
Nach  einer  allgemeinen  Ein¬ 
führung,  werden  anhand 
zahlreicher  Programmbei¬ 
spiele  die  wesentlichen  Krite¬ 
rien  des  speziellen  Programm- 
aufbaus  bzw.  -Ablaufs  er¬ 
läutert. 

Die  abgedruckten  Program¬ 
me  sind  in  Microsoft-Basic 
geschrieben;  eine  ent¬ 
sprechende  Anpassung  be¬ 
darf  zumindest  fundierter 
Basic-Kenntnisse.  Program¬ 
me  aus  dem  Inhalt: 

-  Einnahmen/Ausgaben- 
Buchführung 

-  Angebot  &  Rechnung 

-  Kfm.  Kalkulation 

-  Datei 

-  Textverarbeitung  u.v.m. 

Wer  seine  Basic-Kenntnisse 
vertiefen  und  in  Eigenarbeit 
spezielle  Anwenderprogram¬ 
me  erstellen  will,  ist  mit 
diesem  interessanten  Buch 
gut  beraten. 


Hermann/Schnellhardt 
Schneider  CPC 
Mathematik 
IWT  Verlag  1985 
190  Seiten 

ISBN  3-88322- 152-X 
Preis:  44,-  DM 


D.  Herr  mann  G.Schncllhartll 

Schneider  CPC 
Mathematik 


In  Verbindung  mit  einem 
Computer  war  das  Thema 
»Mathematik«  schon  im¬ 
mer  interessant.  Üm  den 
Computer  auch  für  schuli¬ 
sche  Problemstellungen  nut¬ 
zen  zu  können,  bedarf  es  ei¬ 
niger  Zusatzliteratur,  da  das 
Problem  auf  dem  Computer 
simuliert  werden  muß.  Dieses 
Buch  hilft  dem  Anwender 
beim  Umsetzen  mathemati¬ 
scher  Aufgabestellungen  auf 
dem  CPC.  Der  Leser  findet 
ca.  40  Programme  aus  den 
Bereichen  Algebra,  Geome¬ 
trie,  Mehr-Register  Arithme¬ 
tik,  Zahlentheorie  und  Kom¬ 
binatorik. 

Alle  Programme  sind  übri¬ 
gens  auch  auf  Diskette  beim 
Verlag  erhältlich. 

Ein  für  Schüler  und  Lehrer 
sicherlich  interessantes  Buch, 
doch  sollte  man  auf  die  be¬ 
handelten  Themen  achten, 
da  bei  weitem  nicht  alle  As¬ 
pekte  berücksichtigt  werden. 

D.  und  S.  Petry 
Das  Tor  zur 
Computer-Welt 
MVG  Moderne  Verlags¬ 
gesellschaft  1985 
118  Seiten 
ISBN3-478-02420-X 
Preis:  14,80  DM 

Das  Buch  hat  folgenden, 
sehr  treffend  formulierten 
Untertitel:  »Start:  Null  Ah¬ 
nung  -  Ziel:  Basic«. 

Auf  illustre  und  witzige  Art 
und  Weise  wird  der  Leser  in 
die  Computerwelt  eingeführt 
und  erhält  Grundlagen  der 
Basic-Programmiertechniken. 


0  .wflS.Pf'tv 


1# 


Aufgrund  der  allgemeinver¬ 
ständlichen  Dokumentation 
ist  dieses  Buch  für  Jugend¬ 
liche  und  Erwachsene  glei¬ 
chermaßen  geeignet,  um  ei¬ 
nen  kleinen  Einblick  in  die, 
oft  so  undurchsichtige  Welt 
des  Programmierens  zu  er¬ 
halten. 

Kämpfer 

Roboter 

-  Die  elektronische 
Hand  des  Menschen 
VDI  Verlag  1985 
251  Seiten 
ISBN  3-18-400707-3 


Ein  Phänomen  unserer  Zeit 
sind  unbestritten  die  Ro¬ 
boter.  In  diesem  technischen 
Sachbuch  erfolgt  eine  Be¬ 
standsaufnahme  aus  Ein¬ 
satz,  Praxis  und  Forschung. 
Es  wird  erklärt,  was  ein  Ro¬ 
boter  ist  und  wie  er  funktio¬ 
niert.  Darüber  hinaus  geht 
der  Autor  auf  Hintergründe 
ein,  die  oft  zu  denken  geben. 
Der  leicht  verständliche  Text 
wird  durch  zahlreiche  Abbil¬ 
dungen  untermalt  und  ist  so¬ 
mit  an  keine  Zielgruppe  ge¬ 
bunden.  Überhaupt  richtet 
sich  dieses  Buch  an  alle,  die 
mal  etwas  genauer  über  das 
oft  kritisierte  Thema  »Ro¬ 
boterund  deren  Einsatzmög¬ 
lichkeiten«  informiert  wer¬ 
den  wollen. 


Schneider  CPC  464  Keyboard 
Schneider  CPC  664  Keyboard  (mit  Floppy) 

Schneider  CPC  6128  Keyboard  (mit  Floppy) 

Schneider  Grünmonitor  GT-64 
Schneider  Farbmonitor  CTM-640 
Schneider  GrUnmonitor  GT-65 
(für  CPC  664  und  6128) 

Schneider  Farbmonitor  CTM-644 
(für  CPC  664  und  61 28) 

Schneider  CPC  464  mit  Grünmonitor 
dito  mit  Farbmonitor 
Schneider  CPC  664  mit  Grünmonitor 
dito  mit  Farbmonitor 
Schneider  CPC  6128  mit  Grünmonitor 
dito  mit  Farbmonitor 
Schneider  Joyce 

Schneider  3  Zoll  Floppy  Disk.  001-1 
mit  CP/M  und  Logo 

dito  als  2.  Lautwerk  (ohne  CP/M  u  Logo) 

Hl  Mn  5.25  Zoll  Floppy  Disk.  F1-0  für  CPC 
mit  Superkapazität  von  1 ,4MByte  und  CP/M  1 IM,— 
dito  jedoch  als  Doppellautwerk  F1-D  IM*.— 

Aulrtistklt  A1-S;  F1-S  au1Ft-0 
Vortex  Einzellautwerk  (F1-Z)  zum  AnschluB  an 
001-1  incl.  Programm  Para 
Schneider  Matrixdrucker  CPA  80  GS 
(Traktor  inet) 

3  Zoll  Disketten  5  Stück 

ab  10  Stück  je  IM*  ab  100  Stückje 
dito  jedoch  96pi  (für  Vortex)  Stück  je 
ab  10 Stückje  Ml  ablOOStückje 
Netzteil  MP-2  Wr  Schneider  CPC  464, 664 
und  6128 

RAM -Erweiterung  SP-64  64KByte 
(insgesamt  128KByte) 

RAM-Erweiterung  SP-128  128KByte 
RAM-Erweiterung  SP-256  256KByte 
RAM-Erweiterung  SP-320  320KByte 
RAM-Erweiterung  SP-51 2  512  KByte 
Verlangerungskabel  1.50m  für  CPC  464 
dito  für  CPC  664  und  CPC  6128 
Quickshot  II  o.  baugleich  mit  Autolire 
Competition  Pro  5000  mit  Mikroschaltetn 
Diskettenbox  für  40  3  Zoll  Disketten 
Diskettenbox  für  40  5,25  Zoll  Disketten 
Diskettenbox  für  85  5,25  Zoll  Disketten 
mit  Schl  06 

SUPER  Sprachsynthesizer  +  Stereo  Sound 
für  CPC 

Light pen  für  alle  CPC 
Achtung!!  Staubgefahr  für  Ihre  Anlage: 
Staubschutzhauben  für  CPC  464/664,  NLQ-401 , 001-1 , 
Monitor  Grün/Farbe  je  I7JI 

komplett  Itlr  CPC  und  Monitor 
(bitte  Gerate  angeben)  IM* 

Akustikkoppler  S21d  (ohne  Software  und  Kabel)  M,— 
SUPERSOFTWARE  für  Ihren  CPC 
Wordstar  3.0  IM  — 

dBase  II  IM.— 

Muttiplan  IM.- 

Turbo  Pascal  fl*,— 

Turbo  Graphics  Toofcox  IT*.— 

Turbo  Tutor  IM.— 

Turbo  Lader  Grundpakei  IM, — 

Turbo  Lader  Business 
Turbo  Lader  Science  IM, — 

Alle  Turbo  Programme  auch  für  Joyce  lieferbar  Daher 
bitte  Computertyp  und  Disklormat  angeben 
SUPERDRUCKERPARADE 
Epson  LX-80  100  Zeichen/Sek.  1  KByte  Putler  M*. — 
Epson  LX-90  1 00  Zeichen/Sek.  1  KByte  Puffet  *•*,— 
Epson  FX-85  160  Zeichen/Sek.  8KBy1e  Pufler  147*,— 
Epson  FX-105  160  Zeichen/Sek.  8KByte  Puffer 
Panasonic  KX-P  1080  (100  Zeichen/Sekunde)  «4*.— 
Panasonic  KX-P  1091  (120  Zeichen/Sekunde) 
Panasonic  KX-P  1092  (180  Zeichen/Sekunde)  IM*.— 
Panasonic  KX-P  1592  (180  Zeichen/Sekunde: 
Breitformat)  184*. 

Pansonic  KX-P  3151  Typenraddt ucker  IMI. 

Star  SG-10  (120  Zeichen/Sekunde.  2KByte 
Druckputler)  II»,— 

Star  SG-15  (120  Zeichen/Sekunde,  16KByte)  ItM.— 
Riteman  F  +  (105  ZeicherVSek,  2KByte  Puffet) 


um, — 

IM*,- 


m.- 

TM, — 
74*. — 
UM, — 
im- 
174*. 
14M,- 
1M*.— 
li 

771,- 


74*.— 

m.- 

ii.m 

Mi 

171 

IM.- 

271,- 

»41. 

47*.— 

»2t.— 

M*.— 

**.- 

K- 

Ä 

**.- 

M.- 

4*.— 


1«*.- 

IM.- 


(Epson  FX-80  vollkompallbel) 

AnschluBkabel  lür  Schnerfer  Centrotkc/ 

CPC  464, 664 
dito  für  CPC  6128 

Endlospapier  weif)  mit  A4  Mikroperforation 
500  Blatt 

Sto  jedoch  1000  Blatt 
dito  jedoch  2000  Blatt 
Ersatzfarbbänder  aut  Anfrage  lieferbar. 
Druckerständet 

Literatur  Uber  Drucker  von  Data  Becker  und 
Markt  8  Technik 


IM*.— 


N.— 

M.- 


II.M 

KN 


7*.— 


Alle  Drucker  mit  NLQ-Schrift  und  Centronics-AnschluB. 
Alle  Geräte  mit  FTZ.  6  Monaten  Garantie  und 
deutschem  Handbuch. 

Ausführliche  Unterlagen  für  jedes  Gerat  gegen  1 ,50  DM  in 
Briefmarken. 

Wir  liefern  sofort  ab  Lagerl  Alle  Preise  incl  MwSL 
ACHTUNG!!  Ausländische  Besteller  besonders  aus 
Schweiz  und  Österreich!  Sie  kaufen  besonders 
vorteilhaft 

I.SpdzM  PT*ls-/L*MM«mrHIM* 

2.  Afemfemi  i*r  irnatM 
■•brwiiMaaar  (14%) 

3.  Kd»*  VaraailntM  *M4«n 
praapl*  IMarvaf 

Besuchen  Sie  uns  in  Ravensburg!! 

Bachstraße  52 
7980  Ravensburg 
Tel.:  0751/26138  oder  26497 


schauties 
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Das  noch  recht  simple  Spiel  des  letzten 
Kurses  soll  dieses  Mal  weiter  ausgebaut 
werden.  Dazu  gehören  zwei  Scoreanzei* 
gen  mit  Aufaddierung  dezimal  in  jeweils 
fünf  Bildschirmpositionen.  Es  werden 
dazu  keine  zusätzlichen  Speicherplätze 
benötigt.  Vielmehr  wollen  wir  eine 
Firmware-Routine  benutzen,  mit  deren 
Hilfe  die  ausgegebenen  Werte  auf  dem 
Bildschirm  wieder  eingelesen  werden 
können.  Dazu  verändern  wir  das  Pro¬ 
gramm  des  letzten  Kurses  und  passen  es 
unseren  Bedürfnissen  an. 


Wie  das  Programm  bisher  funktionierte: 

1.  Der  Bildschirm  wurde  aufgehaut  und 
in  der  Mitte  erschien  die  zu  bewegen¬ 
de  Figur. 

2.  Mit  Hilfe  des  Joysticks  konnte  die  Fi¬ 
gurin  alle  Richtungen  bewegt  werden. 

3.  Drückte  man  den  Feuerknopf  des 
Joysticks,  so  wurde  das  Spiel  be¬ 
endet. 


Wie  das  Programm  jetzt  funktionieren 

soll: 

1.  Der  Bildschirm  soll  aufgebaut  wer¬ 
den  und  in  der  Mitte  soll  ebenfalls 
die  zu  bewegende  Figur  erscheinen. 

Allerdings  mit  dem  Unterschied,  daß 
in  der  zweiten  Zeile  eine  Scorean- 
zeige  und  eine  Höchstpunktanzeige 
erscheint  und  die  dritte  Zeile  wieder 
mit  Copyrightzeichen  beschrieben 
wird,  so  daß  eine  Überschreibung 
durch  die  Spielfigur  ausgeschlossen 
ist. 

2.  Mit  Hilfe  des  Joysticks  soll  die  Figur 
gestartet  werden.  Im  Gegensatz  zu 
vorher  allerdings  soll  die  Figur  bei 
Nichtbetätigen  des  Joysticks  nicht 
zum  Stillstand  übergehen,  sondern 
die  Bewegung  in  der  ursprünglichen 
Richtung  beibehalten.  Dadurch 
kommt  es  natürlich,  wenn  der  Spieler 
unaufmerksam  ist,  zu  einer  Randbe¬ 
rührung. 

3.  Sinn  des  Spiels  ist  es,  auf  der  Spiel¬ 
fläche  möglichst  viele  Punkte  zu  sam¬ 
meln.  Jede  Bewegung  ohne  Rand¬ 
berührung  ergibt  nämlich  einen 
Punkt.  Die  Randberührung  kostet  ei¬ 
nen  Punkt.  Das  Spiel  ist  beendet, 
wenn  der  Punktestand  wieder  auf  0 
steht. 


Dazu  betrachten  wir  zunächst  einmal 
den  nebenstehenden  Programmab¬ 
laufplan  zum  Hauptprogramm. 


Hauptprogramm: 


10 

ORG 

32768 

20 

LOCATE 

EQU 

&BB75 

30 

PRINT 

EQU 

&BB5D 

40 

CHAR IN 

EQU 

&BB60 

50 

MODE 

EQU 

&BC0E 

60 

GETJOY 

EQU 

&BB24 

70 

TAB 

EQU 

&BB6F 

80 

CALL 

BILD 

90 

START 

CALL 

NULL 

100 

FIRST 

CALL 

GETJOY 

110 

AND 

«.X000U1: 

120 

JR 

Z, FIRST 

130 

WOHIN 

CALL 

TEST 

140 

CP 

164 

150 

JR 

Z,  JA 

160 

CALL 

SCORE- 

170 

CALL 

ENDTES 

180 

JR 

Z, ABFRAG 

190 

JR 

WOHIN 

200 

JA 

CALL 

SCORE + 

210 

CALL 

AUSGAB 

220 

JR 

WOHIN 

Unterprogramm  ” 

BILD”: 

230 

BILD 

LD 

A,  1 

240 

CALL 

MODE 

250 

LD 

H,  1 

260 

LD 

L,H 

270 

LD 

B ,  40 

280 

LOOP  1 

PUSH 

BC 

290 

PUSH 

HL 

300 

CALL 

LOCATE 

310 

LD 

A,  164 

320 

CALL 

PRINT 

330 

POP 

HL 

; Anf angsadresse  ■  32768 
{TXT  SET  CURSOR 
; TXT  WR  CHAR 
; TXT  RD  CHAR 
; SCR  6ET  MODE 
; KM  GET  JOYSTICK 
| TXT  SET  COLOMN 
; Unterprogramm  "Bild" 
{Unterprogramm  "Null" 
jA  < —  Position  Joyl 
{nur  Bit  0  bis  4 
{Warte  auf  Joyl 
{ist  das  Feld  zugelassen 
{ Copyri ghtsymbol  ? 
{Bewegung  ist  moeglich 
{Punktzahl  -1 
{Punktzahl  *=  0  ? 

{Sprung  zum  Label  ABFRAG 
{Sprung  zum  Label  WOHIN 
{Punktzahl  +1 
{Ausgabe  Copyright,  Score 
{Sprung  zum  Label  WOHIN 


{Vorbereitung  fuer  MODE 
{MODE  1 

{X -Position  =  1 
{Y-Position  =  1 
{eine  Zeile 
{Sicherung  der  Anzahl 
{Sicherung  der  Koordin. 
{LOCATE  auf rufen 
{ ASC  vom  Copyright 
{Ausgabe  von  A 
{Koordinaten  holen 


340 

INC 

H 

350 

POP 

BC 

360 

DJNZ 

LOOP  1 

370 

LD 

B ,  23 

380 

LD 

L,2 

390 

LQ0P2 

PUSH 

BC 

400 

PUSH 

HL 

410 

LD 

H ,  1 

420 

CALL 

LOCATE 

430 

LD 

A,  164 

440 

CALL 

PRINT 

450 

POP 

HL 

460 

PUSH 

HL 

470 

LD 

H ,  40 

480 

CALL 

LOCATE 

490 

LD 

A,  164 

500 

CALL 

PRINT 

510 

POP 

HL 

520 

INC 

L 

530 

POP 

BC 

540 

DJNZ 

L00P2 

550 

LD 

8,1 

560 

LD 

B ,  40 

570 

L0QP3 

PUSH 

BC 

580 

PUSH 

HL 

590 

CALL 

LOCATE 

600 

LD 

A,  164 

610 

CALL 

PRINT 

620 

POP 

HL 

630 

INC 

H 

640 

POP 

BC 

650 

DJNZ 

L00P3 

660 

RET 

Unterprogramm  ” 

NULL” 

670 

NULL 

XOR 

A 

680 

LD 

( VAR1  >  ,i 

{ X-Posi ti on  +  1 
{Anzahl  holen 
{ Zei 1 e  am  Ende? 

{Anzahl  der  Zeilen 
;ab  2. Zeile 
{Sicherung  der  Anzahl 
{Sicherung  der  Zeile 
{Spalte  1 
{LOCATE-Routine 
{ COPYRIGHT-Symbol 
{Ausgabe  Akku 
{Holen  der  Zeile 
{erneute  Sicherung 
{Spalte  40 
{LOCATE-Routine 
i COPYRIGHT-Symbol 
{Ausgabe  Akku 
{Holen  der  Zeile 
{zur  naechsten  Zeile 
{Holen  der  Anzahl 
{schon  beendet? 

{Spalte  1 
{ Spal tenanzahl 
{Sicherung  der  Anzahl 
{Sicherung  der  Koordin. 
{LOCATE  auf rufen 
{ASC  von  COPYRI GHTZ. 
{Ausgabe  Akku 
{Holen  der  Koordin. 

{ X-Posi tion  +  1 
{Holen  der  Anzahl 
{Zeile  am  Ende? 

{ Zurueck  zum  Hauptprogramm 


{Carry  loeschen 
{kein  Joystickwert 


1  '86 


94 


CRC 


Hier  die  Erklärung: 

Zuerst  wird  der  Bildschirm  aufgebaut, 
so  wie  in  Heft  11  und  12  beschrieben. 

Dies  geschieht  durch  einen  Aufruf  als 
Unterprogramm.  Es  trägt  den  Namen 
"Bild".  Anschließend  wird  in  dem  Un¬ 
terprogramm  "Null"  die  Zeilen  zwei 
und  drei  mit  der  Score- und  die  Highan¬ 
zeige  ausgegeben.  Bevor  man  nun  in  die 
eigentliche  Spielroutine  kommt,  wird 
gewartet,  bis  die  erste  Joystickbewegung 
erfolgt.  Dies  ist  der  eigentliche  Spiel¬ 
anfang. 

In  dem  nachfolgenden  Unterpro¬ 
gramm,  das  den  Titel  "Test”  trägt,  wird 
die  Joystickstellung  ermittelt.  Wurde 
der  Joystick  nicht  bewegt,  so  w-ird  die 
vorhergehende  Richtung  beibehalten. 
Andernfalls  wird  die  neue  ermittelte 
Richtung  in  der  Variable  "VAR2"  für 
die  nächste  Abfrage  zwischengespei¬ 
chert,  so  daß  bei  Nichtbetätigen  des 
Joysticks  die  vorhergehende  Richtung 
wieder  eingelesen  werden  kann. 
Anschließend  wird  die  Position,  auf  die 
die  Spielfigur  kommen  soll,  ermittelt 
und  in  zwei  Speichcrstcllen  zur  späte¬ 
ren  Ausgabe  gespeichert.  Für  den  As¬ 
sembler  trägt  diese  "Variable"  den  Na¬ 
men  "VAR1".  Mit  Hilfe  der  Firmware- 
Routine  "TXT  RD  CHAR"  wird  das 
Zeichen  mit  der  Position  "VARl"  ein- 
gelesen  und  in  dem  Register  A  fest¬ 
gehalten.  Damit  ist  die  Aufgabe  der 
Routine  "TEST”  erledigt  und  es  erfolgt 
ein  Rücksprung  zum  Hauptprogramm. 

Hier  erfolgt  die  eigentliche  Prüfung,  ob 
auf  dem  neu  angewählten  Feld  ein  Co¬ 
pyrightzeichen  steht.  Sollte  dies  der  Fall 
sein,  so  kann  die  Bewegung  natürlich 
nicht  ausgeführt  werden,  und  die 
Routine  "Score-”  wird  aufgerufen. 


Da  der  eigentliche  Spielablauf  beendet 
werden  soll,  wenn  der  Score  den  Wert 
Null  erreicht,  muß  diese  Möglichkeit 
jetzt  überprüft  werden.  Trifft  sie  zu.  so 
kann  der  Spieler  wählen,  ob  er  erneut 
spielen  möchte.  Bejaht  er  diese  Frage, 
so  geht  alles  noch  einmal  von  vorne  los. 
Andernfalls  ist  das  Spiel  beendet  und  es 
erfolgt  die  Rückkehr  zum  aufrufenden 
Basicprogramm  und  damit  zum  Ende. 
Trifft  es  aber  nicht  zu,  daß  die  Scorean- 
zeige  0  ist,  so  erfolgt  ein  Rücksprung  zu 
Label  "WOHIN"  im  Hauptprogramm 
und  damit  zum  erneuten  Aufruf  des 
Unterprogramms  'TEST”. 

Steht  jedoch  aufdem  angewählten  Feld 
ein  Leerzeichen,  so  bedeutet  dies  eine 
erfolgreiche  Bewegungsmöglichkeit.  Da¬ 
zu  wird  dann  die  Routine  "Score+” 
angesprungen. 

Nachdem  nun  beide  Scoreanzeigen, 
also  die  Höchstscore-  und  die  aktuelle 
Scoreanzeige  erhöht  wurden,  w'ird  die 
Spielfigur  auf  der  im  Unterprogramm 
"TEST"  ermittelten  Position  ausgege¬ 
ben  und  es  erfolgt  ein  Rücksprung  zum 
Label  "WOHIN”.  Damit  schließt  sich 
der  Kreis  und  die  eigentliche  Spiel¬ 
phase  ist  somit  erklärt. 

Weil  aber  das  Programm  zu  umfang¬ 
reich  für  einen  Kurs  ist.  wollen  wir  uns 
in  diesem  Teil  nur  das  Hauptprogramm 
und  die  Unterprogramme  "BILD", 
"NULL"  und  "TEST"  mit  den  dazu¬ 
gehörenden  Unterprogrammen  ansehen: 

Wie  Sie  mittlerweile  selbst  feststellen 
konnten,  ist  die  Programmierung  in 
Maschinensprache  nicht  sehr  schwer, 
wenn  so  hilfreiche  Routinen,  wie  sie  die 
Firmware  zur  Verfügung  stellt,  vorhan¬ 
den  sind.  Deshalb  hoffe  ich,  daß  Sie 
beim  nächsten  Kurs  wieder  dabei  sind 
und  wünsche  Ihnen  noch  fröhliches 
Assemblerprogrammieren  mit  dem 
Schneider  CPC.  (HF) 


690 

LD 

HL ,  V0302 

710 

CALL 

LOCATE 

720 

LD 

B,  13 

730 

LD 

HL , VAR3 

740 

L00P4 

PUSH 

BC 

750 

LD 

A, (HL) 

760 

INC 

HL 

770 

PUSH 

HL 

780 

CALL 

PRINT 

790 

POP 

HL 

800 

POP 

BC 

810 

DJNZ 

L00P4 

820 

LD 

A ,  22 

830 

CALL 

TAB 

840 

LD 

B,  19 

850 

LD 

HL , VAR4 

860 

LOOPS 

PUSH 

BC 

870 

LD 

A, (HL) 

880 

PUSH 

HL 

890 

CALL 

PRINT 

900 

POP 

HL 

910 

POP 

BC 

920 

DJNZ 

LOOPS 

930 

LD 

B ,  39 

940 

LOOP6 

PUSH 

BC 

950 

LD 

A,  164 

960 

CALL 

PRINT 

970 

POP 

BC 

980 

DJNZ 

L00P6 

990 

LD 

HL,  &  MOD 

1000 

LD 

(VAR0) , HL 

1010 

CALL 

AUSGAB 

1020 

RET 

Unterprogramm  ”TEST”: 

1030 

TEST 

CALL 

&BB24 

1040 

AND 

«-X0001  1 1 1 

» HL  < —  X-3  Y-2 
; LOCATE  auf rufen 
»Anzahl  Bytes 
»Adresse  des  Strings 
»Anzahl  sichern 
»Byte  in  Akku  laden 
»naechstes  Byte 
»Adresse  sichern 
»Ausgabe  Akku 
»Adresse  wiederholen 
»Anzahl  wiederholen 
»schon  beendet? 

» Vorberei tung  fuer  TAB 
»TAB  auf rufen 
»Anzahl  Bytes 
»Adresse  des  Strings 
»Anzahl  sichern 
»Byte  in  Akku  holen 
»Adresse  sichern 
»Ausgabe  Akku 
»Adresse  wiederholen 
»Anzahl  wiederholen 
»schon  beendet 
»Anzahl  Copyright  s 
»Anzahl  sichern 
; ASC  vom  Copyright 
»Ausgabe  Akku 
»Anzahl  wiederholen 
»  schon  beendet 
»HL  < —  Y=13  X-20 
»sichern  Star tposi ti on 
»Score  und  Figur  ausgeben 
»Rueckkehr  zum  Hauptpgm 


»A  < —  Position  des  Joyl 
»nur  Bit  0  bis  4 


1040 

CP 

0 

1050 

CALL 

Z , ZUGABE 

1060 

BEWEG 

LD 

HL, (VAR0) 

1070 

AUFW 

BIT 

0 ,  A 

1080 

JR 

Z  ,  ABW 

1090 

DEC 

L 

1 100 

JR 

LINKS 

1110 

ABW 

BIT 

1  ,  A 

1120 

JR 

Z, LINKS 

1130 

INC 

L 

1140 

LINKS 

BIT 

2,  A 

1  150 

JR 

Z, RECHTS 

1 160 

DEC 

H 

1  170 

JR 

PRUEF 

1180 

RECHTS 

BIT 

3 ,  A 

1 190 

JR 

Z, PRUEF 

1200 

INC 

H 

1210 

PRUEF 

LD 

(VARl) , HL 

1220 

CALL 

&BB75 

1230 

1240 

CALL 

RET 

&BB60 

Unterprogramm  "ZUGABE” 

1250 

1260 

ZUGABE 

LD 

RET 

A, (VAR2) 

Unterprogramm  ” 

AUSGABE 

1270 

AUSGAB 

LD 

HL, (VAR0) 

1280 

CALL 

LOCATE 

1290 

LD 

A ,  32 

1300 

CALL 

PRINT 

1290 

LD 

HL, (VARl) 

1300 

LD 

( VAR0) , HL 

1310 

CALL 

LOCATE 

1320 

LD 

A ,  224 

1330 

1340 

CALL 

RET 

PRINT 

»Joystick  Ruhestellung 
»wenn  ja,  noch  mal  so 
» HL  < —  Pruef posi ti on 
»  auf waerts? 

»wenn  nicht,  dann  ABW 
»Y-Position  -  1 
»zur  Routine  Linksabfrage 
»  abwaerts? 

»wenn  nicht,  dann  LINKS 
; Y-Position  +  1 
»nach  links? 

»wenn  nicht,  dann  RECHTS 
»X-Position  -  1 
»Richtungen  festgestellt 
»nach  rechts? 

»wenn  nicht,  dann  TEST 
» X-Position  +  1 
»Position  sichern 
; Posi ti oni eren 
»Lies  Zeichen 
»Ruecksprung  zum  Hauptpgm 


»vorherige  Joystickposition 
»zurueck  zu  TEgT 


»alte  Position 
»LOCATE  auf rufen 
»Akku  < —  Space 
»Ausgabe  Akku 
»neue  Position 
»Sicherung  Position 
»LOCATE  aufrufen 
»CHR*  (Figur) 

»Ausgabe  Akku 
»zurueck  zum  Hauptpgm 
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Backnang 


Computer-Fans  finden  bei  uns  alles  von: 


Bad  Reiehenliall 


Hard-  und  Software  nach  Maß 

Petef  Kohl 

Waaggasse  4,  8230  Bad  Reichenhall 
Tel.:  08651/66773 


Berlin 


Ihr  starker 
Schneider-Partner 


mükra 

DATEN -TECHNIK 


Schöneberger  Straße  5  •  1000  Berlin  42  •  TeL  030-7S2  91  S0/60 


▼  Mm  yK 

Computerei  y 


/««rt-Mirx-Str.  243« 
C^hn^irW  H  Sott"are  1000  Berlin  44  H 
Bnrali«  l  Am  U-8HI.  Neukoln« 
Üb"«»  \  030/8841098 


Bonn 


Castrop-Rauxel 


ENE  GUTE  CEE  NACH  DER  ANDEREN  . ...mm» 

Schuster  Electronic 

CC**«TfM>  ew  UtL Mftt  COMei/TE»  *  meTBOMC  t 

e  Schneider 

conpuiffOwvon 

Vertrags  handler 

fl  Com  modo  re 

Vertragswerkstatt 
Obere  Munsters! r  33  4620  Castrop- Rauxel  (02305)3 


...alles  für  die  Schneider-Computer! 

rnmnnter  Tponünai 


Schneider 

COtlPUTER  DIWSQtl 


RADIO-FERNSEHEN  yf  ^  ^ 

HIFI-VIDEO  / 


SERVICE  SFRVICE  SERVICE  SERVICE 


Plittersdorfer  Straße  206  Telefon  36  40  29 


Freiburg 


c*7** 


Südbadens 

kompetenter 

Computer-Partner. 


Kaiser-Josepb-Str  232 
7800  Freiburg,  Tel.:  0761/2180225 


Hagen 


SCHNEIDER  SOFTWARE 


SFR  ELEKTRO  GMBH 
DELSTERMER  STRASSE  23 
5800  HAGEM 
V  02331/72608 


Hamburg 


Hannover 


DATALOGIC 

COMPUTERSYSTEME 

SCHNEIDER  ERWEITERUNGEN 

VORTEX  VERKAUF 

DATA  MEDIA  BERATUNG 

INFOS  gegen  DM  2.40  SERVICE 
CALENBERGER  STR.  26 
3000  HANNOVER  1 
TEL  :  0511  -  32  64  89 


Nürnberg 


J.  Julius  Stumpt  r+e+g  GmbH 

l(r  *  « +  all  8531  Markt  Erlbach  T  09846/81 5 
85  Nbg.  Otmarstr.  9  T  618080 

alphatext-apricot-Schneider 


Rüsselsheim 


commodore  cs  Schneider  ■ 
Dipl.  Ing.  Neuderth  -Computer 

Frankfurter  Str.  23/Friedensplatz.  6090  Rüsselahelm 
Tel.  (0  61  42)  6  84  55.  Tx.  viele  d  4  182  982 


Spesenrath 


BERATUNG 

MICRO-COMPUTER 

SOFTWARE 

SYSTEME 

DATA  BECKER  BÜCHER 

Rhem-Hunsrück 

HAR0WAREER- 

5448  Spesenroth 

WEITERUNGEN 

06762/8400-01 

Würzburg 


HALLER  GmbH.  WHrzberg 
der  Spezialist  für  alle  SchnaiderCompetar. 
Hardware  -  Software  -  Zubehör  -  Service 
Büttner  Str.  29  (hinter  Kaufhaus  Haitis) 
Telefon:  0931/16705 
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Schweiz 


Computers 

zentral  in  Seebach,  Schaffhauser  Str.  473,  8052  Zürich, 

Telefon:  01-302  26  00 

Schneider 

COHPUTER  Dllfision 


In  dieses  Händlerverzeichnis 
können  sich  alle 

IComputer-Händlerl 

eintragen  lassen 


Für  telefonische  Anfragen  steht  Ihnen 
Herr  Schnell  gern  zur  Verfügung. 
Tel.:  05651/8702. 


Anzeigenschluß 
für  die  nächste 
Ausgabe  (2/86) 
von 

Schneider  CRC 
International 

ist  der 
03.01.86 

Erscheinungstermin 
ist  der 
29.01.86 


Achtung! 

An  alle  CPC- User-Clubs! 
Suchen  Sie  noch  Mitglieder 
oder  wollen  Kontakte  zu  ande¬ 
ren  CPC- Usern  oder  Clubs 
knüpfen? 

Dann  schreiben  Sie  uns  doch 
einfach.  Wir  veröffentlichen 
jede  Anschrift  eines  CPC-User- 
Cubs  gratis! 

Falls  auch  Ihr  User-Club  sich 
einmal  vorstellen  möchte 
(evt.  mit  Foto),  nutzen  Sie 
unsere  Zeitschrift  als  Verbin¬ 
dungsglied  und  Kontaktadresse! 


Berliner  User-Club 
sucht  Mitglieder 
Wolfgong  Windorpski, 

Gritzner  Str.  38 

1000  Berlin  41,  Tel.  030-8227750 


Schneider  Computer-Club 
Heinsberg/Rheinland 

Helmut  Krings, 
Josef-Gaspers-Str.  25 
5138  Heinsberg  1 
Telefon:  02452/5710 


SCHWEIZ 

Suche  CPC-User  im  Raum  Zürich 
zwecks  Clubgründung 
Bendix  Freutel,  Dolderstr.  9 
CH-8032  Zürich, 

Tel.  01/2520331  abends 


S.V.A.C-Computerclub 
bei  Machner,  Färberstr.  20 
8410  Erkenheim 
Telefon:  08336/7105 


CPC-Clubgründung  angestrebt 

für  die  Bereiche  Ludwigshafen, 
Mannheim  und  Umgebung. 

Info  bei:  Gerhard  Scholz 
Friedensstraße  107 
6700  Ludwigshafen 


CPC-User-Club 
»Das  Tapfere  Schneiderlein« 
Marcus  Odorfer 
Erlenstraße  1  3 
2805  Stuhr  2 


CPC-User-Club 
Sven  Albersmann 
Seilerstraße  1  4 
4434  Ochtrup 


CPC-User-Club  Bad  Wildungen 
Friedhelm  Gardemann 
Königsquellenweg  2A 
3590  Bad  Wildungen 
Telefon:  05621/1322  ab  17.30  Uhr 


Schneider-Computerclub  Saar 

SCS/GENO  DATA 
Rostocker  Straße  38 
6600  Saarbrücken 
oder: 

Michael  Mathieu 
Im  Fuchstälchen 
6600  Saarbrücken  1 1 
Telefon:  0681/3022098 


User-Club  in  der  Schweiz! 

464-Club-Gründung! 

Info  bei:  Christian  Strebei 
Rüslestraße  3 
CH-5452  Oberr'dorf 


Schneider-Software  und 
Computer  Club 

Martin  Pfaff 
Prinz-Kari-Weg  1 
7894  Stühlingen 


CPC  Clubgründung  geplant 
User  aus  dem  Raum  Bielefeld  und 
Ostwesttalen  gesucht 
Fritz-Peter  Nennenbruch 
Splillenbrede  1 1 
4800  Bielefeld  1 
Telefon:  0521/887970 


CPC  464-Club  Niederrhein 
Bernd  Beeking 
Im  Mühlenfeld  1 5 
4193  Kranenburg 
Telefon:  02826/5470 


Warum  gibt  es  in  Wuppertal 
noch  keinen  User-Club? 

Ruft  an! 

Tel.:0202/567224  ab  17.00  Uhr 


CPC-Clubgründung  angestrebt 

Bereich  Kassel 

Matthias  Decker 

Schäfergasse  8 

3500  Kassel 

Tel.:  0561/103805 

Kontaktaufnahme  von  anderen 

Clubs  gewünscht. 


compar 

Kontaktadresse: 

Roland  Heuß 
Am  Rathaus  6 

6200  Wiesbaden-Breckenheim 
Tel.:  06122/2493 


Amstrad-Schneider- 

User-Club-Aachen 

ASUCA 

Zeißstraße  7 

5132  Übach-Palenberg 


CPC-Clubgründung 
im  Raum  Fulda 

Interessenten  bitte  melden  bei: 
Peter  Hillebrecht,  Liedeweg  64 
641  1  Künzell  6 
Tel.:  0661/31572 


Gründung  zu  User-Club  im  Raum 
Nürnberg  angestrebt 

Meldungen  bitte  an: 

Markus  Zeyer 
Siemensstraße  33 
8560  Lauf  1 


SCC  SOFTCOMPANY 

sucht  Mitglieder  in  ganz  Deutschland 
Kai  Schulz,  Breslauer  Str.  102 
5309  Meckenheim 
Tel.:  02225/15154 

oder: 

Bernhard  Lewalter,  Amselweg  33 
5309  Meckenheim 
Tel.:  02225/7546 
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. Anzeigen-Börse . 

Club-Gründung 
Raimund  Eckes 
Hartenfelsweg  4 
5000  Köln  71 
Telefon:  0221/795186 


Schneider  CPC  464  Computer-Club 
Bernd  Becker 
Wittener  Straße  69c 
4354  Datteln 


Neugründung  angestrebf 
Schneider  CPC  Computer-Club 
Friesoythe 

Grüner  Hof  25 
2908  Friesoythe 
Telefon:  04491/2614 
Wer  macht  mit? 


CPC-C  sucht  Mitglieder. 

Info:  Philip  Matthey,  5,  Rue  des  Sapins, 
Senningerberg,  Luxembourg. 


CPC-Clubgründung  angestrebt 
für  die  Bereiche  Gütersloh 
Wiedenbrück,  Harsewinkel,  Verl, 
Reiner  Lotte,  4830  Gütersloh, 
Tel.  05241/36350. 


'CPC-Clubs  in  Wien  gesucht!' 
SINN  Alexander,  Postfach  219, 
1  1 40  Wien. 


Gründungsinitiative  des 
Schneider  CPC-464  Professional 
User-Club  Saar 
Infos  bei  Herbert  Weingärtner 
Tel.:  06894-83  42 


CPC-Profisoft-User-Club 
Überregional,  spez.  für  Freiberufler 
+  Kleingewerbe 
c/o  Andreas  Dauer, 

Hagenbeckstr.  106, 

2000  Hamburg  54,  T.  040/540 1  424 


Schneider  CPC  464  Club  Bayreuth 

Mitglieder  im  Raum  Bayreuth  gesucht. 
Bitte  melden  bei: 

M.  Konrad,  Fontane  4,  8580  Bayreuth 
oder 

A.  Singh,  Pottaschhüttle  10, 

8580  Bayreuth 
(Rückporto  falls  vorhanden) 


Ortenauer  Computer  Clubs  (OCC) 

Sektion  CPC-Ortenau 
c/o  Wolfgang  A.  Jaeger 
Postfach  1731 
D-7600  Offenburg  1 
Tel.:  0781/78268 


CPC- User  Club  OPM 

Dieter  Okom 

Wiesengasse  42,  9020  Klagenfurt 
Österreich 


lAC-lnternational  Amstrad  Club 

Ralf  Krzyzaniak 
Christian-Meyer-Str.  67 
5630  Remscheid  1  1 
Telefon:  02191/65121 


ii  nmi  . . . min im 
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Biete  an  Software 


BAUUNTERNEHMEN  -  INGENIEURBÜROS 
-  BAUBEHÖRDEN: 

★  Übernehme  Ihre  Baustellenab •★ 

★  rechnung!  Computerunterstützte  ★ 

★  Erdmassenberechnung,  eigene  ★ 

★  Softwareentwicklung,  Bauprogr.  ★ 

★  auf  Anfrage.  Dipl.-Ing.  ★ 

★  K.  Schäfer,  Pf.3224,  58  Hagen  1  ★ 


★  ★  ★  SCHNEIDER  CPC  464  ★★  ★ 

★  Hannovers  ★ 

★  S0FTWARETHEK  Nr.  1  ★ 

★★★★★★★★★★★★ 

Chiller/Finders  Keepers/Locomotion 
Formula  1 /Soul  of  a  Robot  C  9,90 

Warlord/Red  Moon  C  29, — 

Formula  one/Death  Pit  C  32, — 

Decathlon/Fantastic  Voyage  C  34, — 

Gremlins/Combat  Lynx  C  36, — 

Erik  the  Viking/Superchess  C  39, — 

Jump  Jet/Project  Vol(DT.)  C  42, — 

Kaiser  (Deutsch)  C  69, — 

Fighter  Pilot  C  39,00  3'D  52, — 

Textomat  plus  CPC  6128  3'D  198,— 

Graphics  Lightpen  +  Software  98, — 

sofort  CSJ  NEWS  anfordern 

★  ★  CSJ  COMPUTERSOFT  J0NIGK  ★  ★ 

★  An  der  Tiefenriede  27,  3000  Hannover  ★ 

★  ★  ★  ★  Tel  0511/8863*3  ★  ★  ★  ★ 


Qualitätssoftware  W.  Bögemann 
2301  Westensee,  Dorfstr.  24 
Tel.  04305/1250  Prg.  für  Praxen- 
Büro,  Klein-  und  Mittelbetriebe 
★  Sonderaktion  für  Arzte  u. 
Rechtsanwälte,  die  aktiv  an  IHREM  Pro¬ 
gramm  mitarbeiten  (bis  zu  50%  erm.) 
ab  1  8.00  Mailboxserv.  04305/1 250 


★  CPC  LOHN-  UND  EINKOMMENSTEUER  * 

Super  Jahresausgl.,  Steuerkl.-Wahl, 
Monatslohnst.:  Cass.  60,—  DM,  Disk. 
75,—  DM.  Jährl.  Aktu.  ohne  Neukauf. 
Info  gg.  RP!  H.  liehen,  Niederfelder 
Str.44, 8072  Manching,  08459/1 669 

Anwenderprogramme  für  CK  464 

auf  Diskette  oder  Cassette. 

Info  gegen  Freiumschlag. 

J.  Funk,  Leuchte  57,  6000  Ffm  604 


★  Super-Software  für  den  CPC  ★ 

BIG  SORTE R. 7  Sortierverf.  20- 
SOUND-MASTER:  Der  CPC  wird 
zum  Klavier.  Spielen+Speichern 
mit  Notenbild  (20  K  lang)  25,- 
ADRESS-MASTER:  Adr.Datei  mit 
Such  und  Sortierroutinen  20,- 
GRAPH:  Funktionsgraphen  kön¬ 
nen  belieb,  in  Maßst.  und  Größe 
veränd.  werden.  (15K  lang)  5,25 
Schein  oder  Scheck  an:  B.  Laschet 
Heidchenweg  1  3,  51 00  Aachen 

TEXTOMAT  von  DATA  BECKER 

Original  mit  Sicherungsdisk 
Tel.:  abends  089/6707632 

CPC  464-FuBball-Fans:  ACHTUNG) 

Bundesliga-Superprogr.  1.  Liga 
(2.  Liga  möglich)  mit  Daten  im 
Direkt-Zugriff  z.B.  Zuschauer, 
Ergebnisse,  Tabellen,  Spieler 
>  auf  Diskette  inkl.  Versand  < 
DM  49,-  (Vorkasse)  Info  80  Pfg. 
Paul  Portner,  Am  Handweiser  1, 

41  DUISBURG  17,  Tel.  02 136/30460 


★  II!  KOSTENLOS  I  I  I  ★ 

★  gibt  es  bei  uns  jetzt  Info-  ★ 

★  material  über  unsere  neuen  ★ 

★  Anwender-  u.  Spielprogramme  ★ 

★  zu  vernünftigen  Preisen.  Es  ★ 

★  lohnt  sich  uns  zu  schreiben.  ★ 

★  Finkenwirth  /  Ab*.  Mc  /  21  68  ★ 

★  Drochtersen  3  /  Dornb.  Str.  70  ★ 

Verk.  gebr.  Databank  a.  Cass. 
für  50,-  DM,  Tel.  05563/329 


Wordstar  f.  6128  orig.m.  Handb. 

auch  Tausch  g.  dBase/Multiplan 
Schwab,  2  HH  70,  Westerlandstr.  3 1 


Prof.  BÖRSENPROGRAMM 
SCHNEIDER  CPC  464,  664,  6128 

Chart,  Zoom,  Durchschnitt  gl. 
Überlag.  Druck,  Optionsscheine 
Depot.  Cass  79,-  DM,  Disk  1  1 9,-  DM 
Info  1,-  DM  iB.  Winfried  Schmitt, 
Enzianweg  24,  8134  Pöcking 

Komplette  Hausverwaltung  für  1-150 
Wohneinheiten,  mit  Nebenkosten¬ 
abrechnung.  Info:  Klaus  Frank, 
Friedhofstr.  26,  71 01  Löwenstein 


Textomot-Textverarb.  Neu  für  DM  1  1 0,- 

zu  verk.,  4  Wo.  alt,  Disk-Version  für 
CPC  464/664/6128,  keine 
Raubkopie  MH  0208/489656 


BACKUP:  Diskettenkopierprogramm 

für  CPC  464  mit  Vortex  5 1 2K  Erw. 
Wie  DISCCOPY,  jedoch  ohne 
CP/M  und  in  nur  1  Durchgang. 
Für  20,-  DM  (Brief),  inkl.  Anleitung, 
Porto  u.  Verpackung:  W.  Sputz, 
Eyller-Str.  225,  4132  K.-Lintfort 


1.+2.  FuBball-Liga,  immer  aktuell 

starkes  Menue,  7  Blöcke  Speicher! 
Kass.  1 0,-  DM  bar  +  3,-  DM  Porto 
Groll,  Fichtenweg  1 9, 6306  Langgöns 


Verk.  geg.  Gebot  Topword,  Topcalc, 
Cubit,  Sorcery  (C)  +  Marco  Polo  I  D 
Tel.:  09571/8117 


★  ★  LOTTO-NEUHEIT  f.  alle  CPC  ★  ★ 

★  Spielen  mit  10  -  24  Wahlzahlen 

★  Programm  erstellt  Tippreihen 

★  Gewinnen  ab  3  rieht.  Wahlz. 

★  Gewinnzahlen  eingeben, 
Programm  wertet  aus 

★  Viele  Spezialauswertungen 

★  Ziehungshäufigkeit  aller  Zahlen 
seit  Beginn  Lotto 

★  Rückstand  nach  Wochen 

★  Ausgebliebene  Zehnergruppen 

★  1 0  rückständigsten  Zahlen 

★  Verteilung  gerade/ungerade 

★  Grafische  Auswertungen 

★  Verfahren  zum  Finden  Wahlz. 

★  Updaten  jede  Woche 

★  Alle  Einzelziehungen  ab  1981 

70KB,  Preis-,  DM  88,-,  Disc  +  1 0,-  DM 
Infocassette  DM  5,— 
Wetzel-Soft,  Steinstr.,  6843  Biblis 

LIQUIDATIONSPROGRAMM  für  Bäder, 
Masseure  usw.;  Tel.  05453/3548 


CPC-Software  für  Betrieb  und  Hobby 
mit  Service.  Liste  0,80  .  NC-SOFT, 
Falkenweq  23,  2110  Buchholz 


464  ★  3D-GRAFIK-ANIMATI0N  ★  464 

3D-Körp.  Kugel  Shape  Funkt.  FL. 
30  Prg.  40  S.  Erl.  Kass,  50,-  DM 
Info  +  Musterprgr.  gratis,  Fred 
Wagenknecht,  1 000  Berlin  44,  llsenstr.l 


Viele  preiswerte  Spiele,  Mathe  Anwend. 

(z.B.  MINIVISICALC) 
von  2-25  DM!  Katalog  geg.  1  DM 
von  SCHNEIDERSOFT,  Andreas  Wagner, 
Gartenstr.  4,  8201  Neubeuern 

Die  Karte  im  So<k  kaufen? 

Unabhängige  Informationen  über 
alle  profess.  Anwenderprogramme  u. 
Beratung  zur  Kaufentscheidung  über: 

©  040-5401424 


Schneider  CPC  464  Flugtraining 

Boeing-727  Simulator.  Dieses  Pro¬ 
gramm  ist  zur  Anfänger-  und  Instru- 
mentenflug-Schulung  geeignet. 
Detaillierte  Auswertung  der  Flüge. 
Kassette;  34,—  DM 

Info  gegen  Rückporto. 
Fluging.  F.  Jahnke,  Am  Berge  1 
3344  Flöthe  1,  Tel.  05341/91618 


Benötigen  Sie  eine  Sicherungskopie? 

Prog.  Leercas.  +  10,—  DM  an 
Karl  Schneider,  6435  Oberaula, 
PF.  2  (06628/1304)  nurCas.  möglich 
>  >  Schnellste  Bearbeitung  <  < 


Schneider  CPC  664/6128 

Steuerberatungssoftware.  Nur  für 
steuerb.  Berufe!  Info,  bei 
CONCEPTION  GmbH,  Hubertusw.  1 4, 
2000  Hamburg  61  anfordern. 

Amor  Ass.  VI  .0-Relocator  -  macht 
aus  Ihrem  Ass.  eine  Disk-Version 
-verschiebbar  -  TT  09721/26123 


■  Programme  vom  Arzt  für  die  I 

■  Arztpraxis  entwickelt  ■ 
I  auf  dem  Schneider  M 

■  Fa.  EFFEKTA,  Am  Wiggert  9c,  ■ 

■  45  Osnabrück,  (054 1 )  459 1 6  ■ 


CPC  464  Wärmebedorfsprogr.  mit 

K-Zahl  30,-  DM;  Lüftungsprogr., 
Kanal-  u.  Rohraufmaß  (VOB,  VDI)  und 
Kanalnetzberechnung  50,-  DM  (Bar¬ 
scheck),  A.  Aust,  Lankwitzer  Weg  5, 
401  9  Monheim,  02 1 73/50586 


CPC-Softwore  aus  Eigenentwicklung 

zu  zivilen  Preisen.  Gratisinfo  anfordem! 
Friedrich  Neuper, 

Postfach  72,  8473  Pfreimd 


★  ★  Schaltbilder  mit  dem  CPC  ★  ★ 

alle  übl.  Bauteile  im  Speicher  m.  Liste 

-  Cas.  40,-DM/3"Disc.  50,-  DM  ★  ★ 
Transistorvorstufen berechnung  in 

Normwerten  m.  Schaltbild  u.  Transistor¬ 
vorschlag  -  Cass.  25  DM/3"Disc.  35  DM 

-  zus.  Cass.  55,-  DM/3''  Disc.  65,-  DM 
alle  mit  Hardcopy,  D.  Thiesen,  Rathaus- 

str.  76,  5410  Höhr-Grenzhausen 


LST/EST  85=Programm  20  Blöcke 
mit  allen  Antragsgründen.  Wahlweise 
Ausgabe  Drucker/Schirm  -  Kassette 
35,-  DM  bar/Scheck=NN+3,-  DM 
Bornemann,  Krempelsd.  Allee  57, 
2400  Lübeck  1,  Tel.  0451/494760 
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Easy-Topword  +  Database  beide  Pro¬ 
gramme  60,—  DM,  Tel.  02683-3892 

CPC-LOTTO  mit  Zahlengenerator 
Statistiken  etc.  CPC-Funktionstasten, 
auf  Kass.  zus.  20,-  od.  Tausch  2  and. 

Programme.  P.  Krüger, 
Moorbekstr.  1  34,  2000  Norderstedt 


Hallo  CPC-Userü!  Wir  haben  den 
Software-RENNER  WINTERGAMES 
Preis:  39,90  DM.  Auch  gleich  unseren 
Gratiskatalog  anfordem.  HP-SOFT, 
Hindenburgallee  3, 

8240  Berchtesgaden, 

Tel.  08652-63061,  Abteilung  A 


Notenverw.  für  die  Schule!  Berechng. 
Schnitt,  Noten  m.  Wichtung,  Noten  + 
Klassenlisten,  Zeugnisnoten  Druck/ 
Schirm  Unk.-Beitr.  50-  DM 
Cass/Disk  (Disk  einsenden)  Info 
Freiumschlag  C.  Bernhold, 
Rommelstr.  31 , 8783  Hammelburg  2 


PSYCHOTESTS 

3  Tests  f.  CPC  1  59,-  DM  incl. 
Hans-L.  Benedikt,  Programmierbüro, 
1000  Berlin  44,  Hermannstr.  222 


★  Statistik-Software  464/664/6128  ★ 

★  Programme  auf  Kass.  +  Disc.  ★ 

★  Inf.  T.  09 1 1  /2046 1 9,  H.  Ludwig  ★ 


CPC  ★  464  ★  664  ★  6128  ★  Kfm. 
Anwenderprogramme,  Textverarb., 
Wörterb.  -  Info  gg.  Porto.  Pechmann, 
Schonhoverstr.  2,  8500  Nürnberg 


Hard-Copy  . . .  aber  richtig! 

Kopiert  Text  und  Grafik  vom 
Bildschirm  auf  jeden  Epson-  o. 
Siemens-kompatiblen  Drucker. 

Beliebiger  Bildausschnitt, 
auf  dem  Papier  positionierbar! 
Fett-  und/oder  Negativ-Druck! 
Sehr  schnell,  kpl.  Kopie  ab  35  sek.! 
MB-HG  Kass:  DM  33,-+  DM  5,- NN 
Dipl. Ing  Matthias  Bertram 
Wiesenw.  28,  2359  Henstedt-Ulzb. 


CPC  464  +  664:  Sicherungskopie 

einer  Diskettenseite  auf  Kassette 
in  8  Minuten.  1000—3600  Baud. 
Backup  von  Laufwerk  A+B, 
auch  von  5,25  Zoll  Laufw.  (40  Spuren). 
Kass.  1 4,—  DM  (Scheck). 
Dipl.-Ing.  W.  Renziehausen, 
Hauptstr.  32,  3360  Osterode  1 


Qualitätssoftware  W.  Bögemann 
2301  Westensee,  Dorfstr.  24 
Tel.  04305/1  250  Prg.  für  Praxen  - 
Büro,  Klein-  und  Mittelbetriebe 
★  Sonderaktion  für  Ärzte  u. 
Rechtsanwälte,  die  aktiv  an  IHREM  Pro¬ 
gramm  mitarbeiten  (bis  zu  50%  erm.) 
ab  18.00  Mailboxserv.  04305/1250 


Speichererweiterung  Data  Media  64K  - 

aufrüstb.  5 1 2K  für  464/664  1 55,-  DM 
orig.  Verp.  /  Tel.  089/156459 


CPC  464  neu  +  Floppy  +  NLQ  401 
+  Zubehör  +  Bücher  DM  1  800,- 
V  08142/16283 


NEU  Endlich  mit  dem  "CPC" 
"Steuern"  Die  Modulare  frei 
programmierbare  Steuerung  bis  220 
Volt  für  viele  Anwendungen.  Info.: 
E.  Hartwich  Computersysteme 
Bahnhofstr.  31,  8042  Deisenhofen 


Steuern,  Messen,  Regeln 

mit  E.B.S-Schnittstellenmodule,  siehe 
Testbericht  in  CPC  International 
Nr.  1  1/85.  Josef  Griesmayr, 
Musenbergstr.  33,  8000  München  81, 
■E1  089/953403 


Schneider  464/6128,  DFÜ-Set,  Drucker, 
Fibu,  Reparaturservice  ★  M.  Kobusch, 
Bergenkamp  8,  4750  Unna, 
‘S‘02303/1  3345  ★  Floppy  3", 5Va" 


CPC  464  Grün,  MP1,  Literatur, 
Software,  800,-  DM,  02 1 29/50736 


CPC  464  Farbe,  neuwertig  1 000,-  DM 
®071 1/588958  ab  17.00  Uhr 


Geschenkt  bekommen  Sie  den  Seikosha 
GP500CPC  nicht  von  mir, 
aber  für  läppische  350,—  DM. 
Jörg  Siebert,  Hermerather  Str.  33, 
5205  Neunkirchen-Seel  1 


DATA  MEDIA  64K  Erw.  DM  99,- 

Sybex  Assemblerkurs  DM  49,- 

®06638/1503  ab  12.1.86 


CPC  464  Grün,  kaum  gebraucht 
DM  550,-  W  02202/39586 


Zu  verkaufen  1  Schneider  CPC  464  mit 
Printer  NLQ  401  und  Formulartraktor, 
Doppelfloppystation,  Farbmonitor, 
Sprach-  und  Soundgenerator, 
Lightpen,  Joystick,  mehrere  Spiele, 
Bücher  und  CPC-Hefte  DM  2950,— 
Tel.  09461/3451  ab  17.30  h 


CPC  464  Farbe  1 0  Mon  alt.  1  1 00,-  DM  VB 
Tel.  0202/435725 


CPC  464  +  Grünmon.  +  Drucker 
NLQ  401,  Literatur  +  Software  + 
Zeitungen  +  Joystick,  Preis:  VS  Mo-Fr: 
Tel.  0251/21 81 11  sonst  0491/271 2 


CPC  464  Grün  +  dk'tronics  +  Joyst.  + 
Literatur  +  viel  Soft,  VB  900,-  DM 
®  07720/7208  ab  20  Uhr 


★  ★  CPC  464  mit  Grünmonitor  ★  ★ 

+  Sprachsynthi  +  Topcalc  + 
Textverarbeitung  +  Spiele,  neuwertig 
Ös  3000,—  unter  Istwert 
Sommer  Josef,  A-3500  Krems 

★  ★  -HLF-  Langenloiserstr.  22  ★★ 


CPC  464  (Grün)!  5  Mon.  alt;  Preis  um  650 
DM;  Oliver  Pers,  Königsberg  Str.  1  1 , 
2086  Ellerau,  Tel.  0410671939 


CPC  464  m.  Colour  Mon.  zu  verk., 
auch  einzeln,  Frank  Mohr, 
Heidwinkelstr.,  3332  Grasleben 


Seikosha-Drucker  GP500CPC  neu 

für  DM  400,-  zu  verkaufen, 
Tel.  06195-61117 


3"  CUMANA  Floppy  nur  DM  395,- 
*  5.25"  komplett  nur  DM  589,- 
Riteman  F+  nur  DM  1099,-  *  8 
CP/M  Utilities  Public  Domain 
auf  3"  DM  33,-  Disc  +  Kopierkosten. 
*  *  *  Gratisinfo  *  *  *  bei  *  ’  * 
M.M.W.  -  Fr,  Hubert  Worms, 
Weidegrund  25,  4780  Lippstadt 


CPC  464  Grünmonitor  DM  600,- 
Div.  Software,  Tel.0605 1/1 4470 


CPC  464  Grün  599,-  NLQ  401  599,- 
Typenraddrucker  Olivetti  699,- 
Mehnert,  Tel.  0211/706369 


CPC  464  +  Data  Becker-Bücher 
R.  Bednarski,  Tel.  0551/43167 


Suche  Software 


•  Suche  Programme  für  den  • 

•  CPC  464  und  C  64  • 

•  G.  Pasquero,  BeurhausstraBe  S  • 

•  4600  Dortmund  • 


Kopierschutz  für  CPC  6128  Info  an 
Grössmann,  F.v.  Stein  9,  6000  Ffm  1 


Suche  Kontakt  zu  CPC-Usern 

Zwecks  Erfahrungs/Programmaust. 
Markus  Schieck,  Tel.  07263/5290 


Swcke  Assembler  für  Intel  8048 

auf  CPC  464.  R.  Stöckli 
Bruggerstr.  2,  CH-5103  Wildegg 


Suche  Anwendersoftw.  Buchhalt. 
Statistik  etc.  für  kleinen  Gewerbe¬ 
betrieb,  CPC  464.  Katzenpension, 
5140  Erkelenz,  Hoven  15 


Suche  Hardware 


★  Suche  Floppy,  Tel.  05371/50255  ★ 


Suche  Diskettenstat.  DD1+  Drucker 
NLQ  401  für  CPC  464.  Rieger, 
Am  Heesberg  1 4, 4 1  00  Duisburg  74, 
Tel.  02841/43147 


Suche  Epson-FXSO  V  069/5074492 


Suche  3"  Floppy  DDI-1  inkl.  Buch  + 
Diskette,  Tel.  06849/1218 


Verschiedenes 


Suche  Schneider  CPC  International 

Heft  3  -  9,  V  06234/4634 


Verk,  CPC  464  wegen  Ank.  Joyce  PCW 
Tastat.  Monit.  Druck.  NLQ  401 
Prog.  Textverarb.  -  Kalkül.  -  Adress  - 
Lagerverw.  -  Comp.  Kurs  -  Kartei  -  Ba- 
sickurs  +  Spielen  +  CPC  Internat,  ab 
Heft  3  +  Sonderheft  Chip  1  -2-3  mit 
Cass.  Prog.  aus  Heften.  VB  2000,-  DM 
Tel.  02826/1340  ab  18  bis  21  h 


HILFE!!! 

Einsamer  CPC-User  sucht  Anschluß! 
Hilfsbereite  Naturen  melden  sich 
bitte  bei  Roland  Apel 
*  02721/50853 


Herzlichen  Glückwunsch!! 

Zu  1  Jahr  COMPI-CLUB  und  über  210 
Mitgliedern  gratulieren  die  Leiter  der 
User-Gruppen  Nord,  Süd  und  Westfalen! 


GESTRICHEN — 

haben  wir  fast  alle  Softwarepreise 
(z.B.  CYRUS  II  3-D  Schach  DM  41,90), 
die  Mitgliedschaft  ist  immer  noch  für 
20,-  DM/Halbj.  zu  haben!!  COMPI-CLUB, 
J.  Heise,  A.d.  Linde  8,  5226  Reichshof 


Tausch 


Tausche  CPC  464-Software.  Bitte 
ruft  mich  an  oder  schreibt  an  Timo 
Widmann,  Achalmstr.  1 5,  7446 
Oberboihingen,  Tel.  07022/61524 


★  ★  ★  CPC  464/664  ★  ★  ★ 

★  Tausche  Comp.-Prog.  (KB  geg  ★ 

★  KB)  Schreiben  Sie  an  Klaus  ★ 

★  Engler,  Schwangaustr.  20,  ★ 

★  ★  ★  8900  Augsburg  ★  ★  ★ 


Tausche  Wordstar  (6128)  gegen 
Textomat  plus,-  Tel.05453/3548 


Das  ist  Ihre  Chance... 
schon  eine  Kleinanzeige  bringt 
oftmals  großen  Erfolg  und  hilft 
neue  Kontakte  knüpfen. 

Nutzen  Sie  unser  Angebot  und 
profitieren  Sie  von  der  Tatsache, 
daß  unsere  Zeitschrift 
„Schneider  CPC  International” 
jeden  Monat  von  mehreren  zig¬ 
tausend  Computer-Interessierten 
gelesen  wird. 

Möchten  Sie  etwas  verkaufen, 
tauschen  oder  suchen  Sie  das 
„Tüpfelchen  auf  dem  i”  -  dann 
sollten  Sie  die  eigens  hierfür  be¬ 
stimmte  Bestellkarte  Im  Heft  aus¬ 
füllen  und  an  unseren  Verlag 
absenden. 

Ihre  Annonce  erscheint  dann  in 
der  nächsterTeichbaren  Ausgabe. 

Wir  möchten  ausdrücklich  darauf  hinwei- 
sen,  daß  wir  keine  Anzeigen  veröffent¬ 
lichen,  aus  denen  ersichtlich  ist,  daß  es  sich 
hierbei  um  Veräußerungen  von  Raubkopien 
oder  dergleichen  handeis 

Die  Redaktion 


* 
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Speichern  Sie  wohl... 

für  den  Schneider  CPC  464  und  664* 

5,25" . 1,4  MB . CP/M  2.2 . VMS  2.0 


vortex  Hoppy-Disk-Station  Fl 


Das  Laufwerk  F1-Z  kann  als  Zweitlaufwerk  an  die  Schneider  3  " -Diskettenstation  DDI-1  an¬ 
geschlossen  werden  und  hat  dieselbe  Speicherkapazität  wie  das  3 "  -Laufwerk.  Es  ist 
identisch  mit  der  Station  F1-S  jedoch  ohne  Controller  und  ohne  CP/M. 


Das  mitgelieferte  Programm  SPARA  erlaubt  Ihnen  das  Lesen  und  Beschreiben  von  Disket¬ 
ten  gängiger  CP/M-Systeme,  welche  Ihre  Disketten  einseitig  mit  40  Spuren  verwalten. 
(Diese  Einschränkung  bedingt  der  Controller  der  Schneider  DDI-1.) 

Erwacht  jedoch  Ihr  Interesse  an  708  KB  oder  1,4  MB,  so  können  Sie  Ihre  F1-Z  problemlos 
zur  F1-S  oder  F1-D  aufrüsten. 


jetzt  mit  VDOS  2.0:  relative  Dateien,  Tracer,  Disassembler, 

Assembler,  BASIC-Befehlserweiterungen 

Leistungen 

—  Ein  (wahlweise  zwei;  von  Anfang  an,  oder  nachrüstbar) 
5,25"-Slimline,  80  Track,  DS/DD  6138  BASF-Laufwerk  der  modern¬ 
sten  Technologie  mit  708  KB  (1,4  MB),  formatierter  Speicherkapaziät, 
4  msec  Steprate,  IBM  34-Formate. 

—  CP/M  2.2-Betriebssystem  und  Systemutilities 

—  Erweitertes  BASIC-stand-alone-Diskettenbetriebssystem  VDOS  2.0 

—  Ohne  Soft-  oder  Hardwareänderungen  kann  ein  Schneider 
3  '  -Laufwerk  über  ein  Adapterkabel  angeschlossen  werden.  Softwa¬ 
rekonvertierung  von  5,25"  auf  3"  und  umgekehrt:  kein  Problem. 

Preise 

—  F1/S  Floppy-Disk-Station  mit  Controller  und  Laufwerk 

inkl.  CP/M  2.2,  VDOS  und  Handbuch 

1198,—  DM  (unverbindliche  Preisempfehlung) 

—  F1/D  Floppy-Disk-Station  mit  Controller  und  zwei  Laufwerken 

inkl.  CP/M  2.2,  VDOS  und  Handbuch 

1698,—  DM  (unverbindliche  Preisempfehlung) 

—  A1-S  Aufrüstkit  bestehend  aus  BASFLaufwerk  6138 

und  Einbauanleitg.  500,—  DM  (unverbindliche  Preisempfehlung) 

—  5,25 "-Zweitlaufwerk  F1-Z  +  Programm  SPARA 

698,—  DM  (unverbindliche  Preisempfehlung) 

—  Aufrüstkit  AI-Z  bestehend  aus  Controller,  CP/M-Lizenz  und  Dienstpro¬ 
grammen  sowie  Handbuch 

548,—  DM  (unverbindliche  Preisempfehlung) 


*  0i>  Spdckerkarta  fir  den  884  beinhaltet  keine  Baak-Erweiterung.  Diese  Ist  erst  zu  einem  späteren  Zeitpunkt  als  Nachristsatz  (Epren)  ze  beziehen. 

64  KB  bis  512  KB  RAM-Erweiterung  ...  Druckerpuffer ...  RAM-Roppy 


—  jetzt  endlich  läuft  jedes  Standard-CP/M-Programm 

(z.B.  Wordstar,  dBase,  Multiplan) 

—  voll  unter  BASIC  und  CP/M  ersetzbar 

—  das  Betriebssystem  der  Karte  (im  ROM)  ist  nahtlos  ins  CPC- 
Betriebssystem  eingebaut 

—  einfacher  Einbau  der  Karte:  kein  Löten 


Preise:  SP  64/M,  64-KB-RAM-Erweiterung  ohne  ROM,  ohne  Bus-Puffer 
nicht  aufrüstbar  138,—  DM  (unverbindliche  Preisempfehlung) 

SP  64,  64-KB-RAM-Erweiterung  mit  ROM,  mit  Bus-Puffer 
aufrüstbar  bis  512  KB  275,—  DM  (unverbindliche  Preisempfehlung) 

Sie  erhalten  unsere  Produkte: 

—  in  allen  Karstadt-,  Horten-  und  Quelle-Computercentren 

—  in  den  technischen  Kaufhäusern  Phora  und  Brinkmann 

Bei  Bezugsproblemen  rufen  Sie  uns  bitte  an. 

Fördern  Sie  unser  kostenloses  Informationsmaterial  an. 


vortex  RAM-Erweiterung  SP64  ... 


Die  Programme  Wordstar,  dBase  und  Multiplan  erhalten  Sie  zu  sensatio¬ 
nellen  Preisen  beim  M&T  Software  Verlag.  Alle  Programme  sind  auf  unse¬ 
re  RAM-Erweiterung  abgestimmt  und  laufen  mit  ihr  uneingeschränkt. 


Mit  jedem  unserer  Produkte  erhalten  Sie  den  vortex  Service-Paß.  Mit  diesem  Paß  garantieren  wir  Ihnen  einen  kostenfreien  Anspruch  auf  alle 
Neuerungen  und  eventuelle  Verbesserungen  unserer  Betriebssystemsoftware.  Für  soft-  und  hardwaretechnische  Fragen  im  Zusammenhang  mit 
unseren  Produkten  haben  wir  eine  User-Sprechstunde  eingerichtet.  Montags  und  Donnerstags  von  18  Uhr  -  21  Uhr  stehen  wir  Ihnen  telefonisch 
zur  Verfügung. 

CP/M  2.2  ist  ein  eingetragenes  Warenzeichen  der  Firma  Digital  Research  •  VDOS  und  vortex  sind  eingetragene  Warenzeichen  der  Firma  vortex  GmbH  •  Wordstar  ist  ein  eingetragenes 
Warenzeichen  der  Firma  Micro  Pro  •  dBase  ist  ein  eingetragenes  Warenzeichen  der  Firma  Ashton  Tate.  •  Multiplan  ist  eingetragenes  Warenzeichen  der  Firma  Microsoft. 


7106  Neuenstadt,  Klingenberg  13  -  Tel.:  Abt.  Marketing  07139/2160,  Telex  728915  -  Tel.:  Abt.  Software  0711/7775576 


Wie  Sie  sehen,  werden  die  Einsprünge  in  diesem  Teil  der  Firmware  imme 
von  zahlreichen  Übergaben  begleitet.  Im  nächsten  Heft  folgen  die  Calls 
zum  Lesen  von  Tape  oder  Disk. 


Referenzkarte:  Calls  &  Pokes 


Die  Einspriinge  in  den  Kassettenmanager  erfordern  eine  große  Zahl  an  Parametern.  Hier  finden  Sie 
nun  Teil  2  dieser  komplexen  Referenz. 

Adresse  Syntax 

BC71  Einsprung:  Keine  Bedingungen. 

Aussprung:  Motor  aus:  carry  =  on 
Fehler:  carry  =  off 
Immer:  A  =  Last  State,  Flags  zerstört. 


Kassettenmotor  aus. 

BC74  Einsprung:  A  =  Last  State 

Aussprung:  Motor  ein/aus:  carry  =  on 
Fehler:  carry  =  off 
Immer:  A,  Flags  zerstört 

Kassettenmotor  auf  Last  State  schalten. 

BC77  Einsprung:  B  =  Länge  Name. 

HL  =  Adresse  Name 
DE  =  2K  Buffer 

Aussprung:  Eröffnet:  carry  =  on, 
Zero-Flag  =  off 
HL  =  Buffer  (Header) 

DE  =Header 
BL  =Länge 
A  =Dateiart 

nicht  eröffnet:  carry  =  off 
Zero-Flag  =  off 
A,  BC,  DE,  HL  zerstört 
Abbruch:  carry  =  off,  Zero-Flag  =  on 
A,  BC,  DE,  HL  zerstört 
Immer:  IX  und  Flags  zerstört. 


Adresse  Syntax 

BC80  Einsprung:  Keine  Bedingungen. 

Aussprung:  Richtig  gelesen:  carry  =  on 

Zero-Flag  =  off,  A  =  Zeichen, 
EOFMET:carry  =  off 
Zero-Flag  =  off,  A  zerstört 

Unterbrochen:  carry  =  off,  Zero-Flag  =  on 
A  zerstört. 

Immer:  IX  und  Flags  zerstört. 

Zeichen  oder  Block  von  Eingabedatei 

lesen. 

BC83  Einsprung:  HL  =  Startadresse. 

Aussprung:  Richtig  gelesen:  carry  =  on 
Zero-Flag  =  off, 

A  Executionadresse. 

Nicht  korrekt  eröffnet: 
carry  =  off,  Zero-Flag  =  off 
HL  zerstört. 

Unterbrochen:  carry  =  off, 

Zero-Flag  =  on, 

HL  zerstört. 

Immer:  A,  BC,  DE,  IX  Flags  zerstört. 

Lesen  der  ganzen  Eingabedatei. 

BC86  Einsprung:  Keine  Bedingungen. 

Aussprung:  Register  und  Flags  zerstört. 


Datei  zur  Eingabe  eröffnen. 

Einsprung:  Keine  Bedingungen. 
Aussprung:  geschlossen:  carry  =  on 
Fehler:  carry  =  off 
Immer:  A,  BC,  DE,  HL  zerstört 

Eingabedatei  korrekt  schließen. 

Einsprung:  Keine  Bedingungen 
Aussprung:  AF,  BC,  DE,  HL  zerstört. 

Abbrechen  des  Lesens  und  schließen  der 
Eingabedatei. 


Letztes  gelesenes  Zeichen  in  den 
Eingabebuffer  zurückstellen. 


BC89 


Einsprung:  Keine  Bedingungen. 
Aussprung:  Laufend: 

carry  =  on 
Zero-Flag  =off 
Erreicht: 

carry  =  off,  Zero-Flag  =  off 
Abbruch:  carry  =  off,  Zero-Flag  =  on. 
Immer:  A,IX,  Flags  zerstört. 


Test  auf  Dateiende. 


BC7A 


BC7D 


2/86 


„Schneider  CPC  2/86»* 
erhalten  Sie  ab  29.  Januar 
bei  Ihrem 

Zeitschriftenhändler 


Maschinensprache-Freunde  können  sich  freuen.  Wii 
bringen  Super-Hilfsprogramme  und  tolle  Tips,  u.a. 
einen  kompletten  Disk-Monitor. 


Haufenweise  neue  Spiele-Software  für  jeden  CPC! 
Wir  stellen  Ihnen  die  interessantesten  Programme 
vor! 


Ein  neuer  Sprachsynthesizer  von  A  mstrad.  Wie  lei¬ 
stungsfähig  ist  das  Gerät? 


iiiiMmiMimiiii  hi  im  ii  iiiiiiiiiiimiiiiiiiiiiiiiiiiiiiii  min  im  H  MiiHmiiiiiiiiiHiininiii  MMMMHmmimmi 


i  ■  1 1 1  ■  1 1 1 1 1 1 


Berichte 


Großer  Vergleichstest  von  Speichermedien 

-  Floppy-Stationen  im  Test 

Was  leistet  Logoscript? 

-  Joyce-Textverarbeitungsprogramm 
im  Vergleich  mit  »professioneller« 
Textverarbeitung 

Spiele-Zensur 

-  »Verbotene«  Computerspiele 


Serie 


Der  gläserne  CPC 

-Abspeichern  von  Bildschirmteilbe 
reichen 

Die  Geschichte  der  Mikroelektronik 

-  Auswirkungen  auf  die  Arbeitswelt 


Programme 


Mausefalle 

-  Actionspiel  mit  Pfiff!! 

Super  Utilities  für  Maschinensprache- 
Programmierer 

u.a.  Disk-Monitor!! 


Lehrgänge 


-  Z-80  Assembler 

-  Sound  mit  dem  CPC 

-  Logo 

-  Basic  für  Einsteiger 


Hardware 


Im  Test: 

-  Speichererweiterung  von  Data  Media 
und  Vortex! 


Software  Reviews 


Bounty  Bob  Strikes  Back 

Fighting  Warrior 

Mindshadow 

Project  Future 

u.v.m. 


Tips  und  Tricks 


Remain 

-  Tips  zum  Umgang  mit  dem  noch  recht 
unbekannten  Befehl 


Rund  um  den  CPC 


Aktuelle  Neuheiten  rund  um  die 
Schneider-Computer. Trends  und  Infos 
finden  Sie  wie  immer,  in  unserer  Rubrik 
»Schneider  Aktuell«! 


CP/M 


Das  populärste  Betriebssystem  für  Z-80 
Rechner  birgt  viele  ungeahnte  Möglich¬ 
keiten.  Wieder  geben  wir  Ihnen  Tips  zum 
Umgang  mit  CP/M. 


Inserentenverzeichnis 

Ariolasoft 

2 

BBG  Software 

50 

Brother 

39 

Byte  me 

7 

CIZ 

70 

Computer  Max 

29 

CSE  Schauties 

93 

Data  Becker 

22,23 

Data  Berger 

71,25 

Data  Media 

68,87,103 

Data  Service 

26 

Datasoft 

27 

D+G  Datentechnik 

70 

Dobbertin 

91 

EDV-Beratung  Worms 

79 

E+C  Zellmeier 

47 

Fun  Tastic 

79 

G  Computerstore 

26 

GAI 

88 

Goto 

27 

Gundermann 

89 

John  Hall 

61 

Heimcomputer  Shop 

41 

HP-Soft 

9 

Integral  Hydraulik 

75 

Janke 

71 

Miikra 

17 

Probst 

9 

Röckrath 

89 

Schneider  Computer 

52,53,104 

Schneider  Data 

55 

Schuster 

7 

Star  Division 

5 

Unicom 

33 

Van  der  Zalm 

91 

Vortex 

100 

Weeske 

12,13 

WHS 

25 

Widdel 

88 

102  CPC  1  *86 


Wie  bestellen  t 

Die  Bestellkarte  Im  Innentell  der  CRC  heraustrennen,  aui 
füllen  und  an  DATA  MEDIA  senden.  Lieferung  erfolg 
umgehend!  Zahlung  per  Vorkasse  oder  Nachnahme  xxgl 

Porto-biw.  Nachnah. 

megebühr.  (Nach¬ 
nahme  Ins  Ausland  Ist 
nicht  möglich.) 


' ! 

Weitere  Artikel  in  unserem  Gesamtkatalog.  Bitte  anfordern  (2 DM  für  Rückporto  beilegen). 
Data  Media  GmbH  -Mailorder-  Ruhrallee  55,  4600  Dortmund.  Tel.:  (02  31)  12  50  71-3 


data  media  gmbh  MAILORDER 


Die  Software  besteht  aus  einer  Dar¬ 
stellung  der  gleichnamigen  Fernseh¬ 
serie.  Versetzen  Sie  sich  in  die  Rolle 
des  »String  Fellow  Hawk«  und  fliegen 
Sie  den  Billionen  Dollar  schweren 
Helicopter. 

AIRWOLF 


Ellta  Systems 

(nur  mit  Joystick-Gebrauch) 

Cass.  Best.-Nr.194  49  -0* 

Disk.  3"  Best.-Nr.  294  69-  DM 


Ein  Wiedersehen  mit  Herbert  aus 
»EVERYONE’S  A  WALLY«. 

Das  neue  Mikro-Gen  Action-Adventure 
schickt  Herbert  auf  eine  abenteuerliche 
Suche. 

Fantastische  Farbgrafik! 


Der  Miner  2049er  ist  wieder  da. 

In  einer  stillgelegten  Uran-Mine  kommt 
es  zum  letzten  Gefecht.  Bounty  Bob 
jagt  seinen  Erzfeind  Yukon  Johran. 

BOUNTY  BOB 
STBIKES  BACK 


GKEMLiNSC' 


Big  Fhre  Software 

Cass. 


49.- DM 


HERBERrS  DUMMY  RUN 

Mlkro-6en 


THEADVENTURE 

BY  BRIAN  HOWARTH 


Cass. 


49,-  DM 


Aus  einem  der  besten  Häuser  stammt 
das  Schachspiel  CYRUS  II  CHESS. 
1 2  Stufen  (von  der  Stufe  für  Anfänger 
bis  zur  Stufe  eines  Meisters)  bieten, 
aufgrund  der  vielfältigen  Varianten, 
eine  Herausforderung  für  jeden  Spieler. 
Die  Problemlösung,  die  Druckerunter¬ 
stützung,  die  wählbare  Spielstärke  und 
die  Wahl  zwischen  einem  2D-  oder  3D- 
Bildschirm  erhöht  es  zu  einem  Pro¬ 
gramm  mit  konkurrenzloser  Qualität. 

CYRUS  II  CHESS 

IntelllgMt  Software 

(nur  Keyboant-Gebrauch) 

Cass.  Best.-Nr.  105  49- DM 

Disk.  3"  Best.-Nr.  205  69-  DM 


Viele  weitere  Spiele  in  unserem  Katalog.  Bitte  anfordern! 


Action-  und  Abenteuerspiele... 

Titel  Cassette  Diskette  3” 


Das  Adventure  zum  Hollywood-Filmhit. 
Befreien  Sie  eine  Kleinstadt  aus  den 
Klauen  boshafter  Kobolde. 

GREMLINS 


Zaxxon 

49,-  DM 

69,- DM 

Assault  on  Port  Stanley 

39-  DM 

49,-  DM 

Congo  Bongo 

49,-  DM 

69,-  DM 

Buck  Rogers 

49,- DM 

69,-  DM 

Gien  Hoddle  Soccer 

49,-  DM 

69,-  DM 

Spy  Hunter 

49,- DM 

69,-  DM 

30  Grand  Prix 

49-  DM 

69,- DM 

3D  Boxing 

49-  DM 

69,- DM 

The  way  of  the  exploding  Fist 

39-  DM 

Bruce  Lee 

39- DM 

59,-  DM 

Ihe  neverending  Story 

99-  DM 

Cauldron 

49,-  DM 

Tombstone 

49,- DM 

They  sold  a  million 

99-  DM 

Spy  vs.  spy 

69,-  DM 

Screenplay  -  der  Moviemaker 

49,-  DM 

(s.  Bericht  CPC 
International 

Heft  12  S.  80) 

TOP  OF  THE  CHARTS 


Löse  die  Bremse  und  öffne  den  Gas¬ 
hahn  und  Sie  werden  befähigt,  eine 
Reihe  von  Rekorden  zu  brechen,  indem 
Sie  über  eine  Anzahl  Londoner  Busse 
springen.  Perfekte  Grafiken  und 
Sprachsynthese. 

3D  STUNT  RIDER 

DJL  Software 
(Keyboard  Odor  Joystick) 

Cass.  Best.-Nr.  197  34 -DM 

Disk.  3"  Best.-Nr.  297  54.-  DM 


Advontire  Intern 

Cass. 


ogranw1 


ck< 

Die  professionelle  Textverarbeitung  von  Schneider  für  den  »CPG 


»FD-1«  Diskettenlaufwerk 
als  zweites  Laufwerk 


»CF2«  Diskette 


Unsere  Software-Palette  wird  ständig  erweitert.  Fragen  Sie  Ihren  Händler  nach  den  aktuellen  Neuerscheinunge 

Schneide 

rnmoi  itco  rni  iici n /\| 

Lunt  uiLK  uns i -nur 


Traktoraufsatz  »SFT 401« 
zum  »NLQ401« 


Drucker  »NLQ  401« 
(Near  Letter  Quality) 


Diese  professionelle  Textverarbeitung  auf 
Diskette,  kann  durch  ihre  Vielzahl  von  Möglich¬ 
keiten  für  verschiedenste  Zwecke  eingesetzt 
werden. 

Zum  Programmpaket  »TexPack«  gehört  neben 
der  eigentlichen  Textverarbeitung  auch  eine 
komfortable  Adreß-  und  Dateiverwaltung. 

Die  Leistungsmerkmale  des  »TexPack«  in  Stichworten: 


■  HIBIMI'I1  "II 

^  :•  -  * 


•  Zeichen  einfügen  und  löschen 

•  Zeilen  einfügen  und  löschen 

•  Absätze  einfügen  und  löschen 

•  Begriffe  suchen  und  ersetzen 

•  Wort  löschen,  Zeilenrest 
löschen 

•  Zeilen  aufbrechen  und 
anschließen 

•  Bausteinverarbeitung 

•  Adreßbe-  und  -Verarbeitung 

•  Textbreite  bis  zu  240  Zeichen 
pro  Zeile 

•  Fließtexteingabe 

•  Randausgleich  auch  zur 
nachträglichen  Änderung  der 
Textbreite 

•  Block-  oder  Flattersatz 
wahlweise 

•  Freie  Wahl  des  linken  Randes 
für  beliebige  Textabschnitte 


Folgende  Druckausgaben  sind 

variierbar: 

•  Schriftbreite 

•  Zeilenabstand  ein-, 
eineinhalb-  und  zweizeilig 

•  Formelschreibweise 
(Hoch-  und  Tiefstellung) 

•  verschiedene 
Hervorhebungsarten: 
Unterstreichen,  Fettdruck  etc 

•  Normalschrift  oder 
Korrespondenz-Qualität 
(Near- Letter- Quality) 


Stawfeiateö  erfassen  &  ändern 
Informationen  sbruf en 
Schreibauftrag  erfassen  i  cindern 
Schreibauftrag  ausführen ' 
Datendiskette  generieren 

k 

Index  des  Kennworts  erneuern 
Irennen  einer  Kartei 
Textbearbeitung 
Programm-Ende 
Bitte  wählen  Sie: 


Damit  Sie  den  vollen  Leistungsumfang  von  »TexPack«  nutzen  könne; 


